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PREFACE 


The FORTRAN Language Conversion Program 
(FORTRAN LCP) facilitates transition to IBM 
System/360 by converting FORTRAN II source 
programs written for IBM current-systems 
FORTRAN II compilers into source programs 
for an IBM System/360 FORTRAN compiler. 


The preliminary information in this pub- 
lication will aid the user in planning for 
use of the FORTRAN LCP as part of his 
complete plan for conversion to System/360. 


PREREQUISITE LITERATURE 


The reader of this publication should be 
familiar with a current IBM FORTRAN II 
language and with the FORTRAN IV language 
as it is used with System/360. 


The FORTRAN II language for aecurrent 
IBM system is described in the publication 
FORTRAN II General Information Manual, Form 


F28-8074, and one of the following publica- 
tions: 


FORTRAN 


Specifications and Operating 
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System; Reference Manual, Form 
C26-5594 | 
IBM 1620 FORTRAN with FORMAT, Form 
C26-5619 | 
IBM 1620 FORTRAN II Programming System 


Reference Manual, Form C26-5876 
IBM 7070-Series 
FORTRAN, Form C28-6170 


User's and Operator's Guide, IBM 
7070-Series Programmin System; 


FORTRAN Operating Systems (FOS), Form 
C28-6369, which contains a listing of 
features and restrictions added to 
7070-Series FORTRAN to form 7070 FOS 


FORTRAN 
IBM 705 FORTRAN Programming System, Form 
J28-6122 


IBM 7080 Programming Systems; 7080 Proc- 
essor; FORTRAN Language, Form 
J28-6247 

IBM 7090/7094 Programming Systems; FOR- 
TRAN II Programming, Form C28-6054 


The FORTRAN LCP permits the user to 
specify that his source programs are to _ be 
converted to one of three design levels of 
System/360 FORTRAN IV -- BaSic Programming 
Support FORTRAN, Level E FORTRAN, or Level 
H FORTRAN. The reader of this manual 
should be familiar with the publication 
that describes the level of System/360 
FORTRAN to which he is converting his 
source programs. The publications that 
describe System/360 FORTRAN are: 
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FORTRAN, Form C28-6504 

IBM Operating System/360 FORTRAN IV (E 
Level Subset), Form C28-6513 

IBM Operating System/360 FORTRAN IV, 
Form C28-6515 (This is referred to as 
Level H FORTRAN.) 


The information in thisS manual is based 
on System/360 FORTRAN IV specifications as 
published in the following versions of the 
above manuals: 


This publication was prepared for production using an IBM computer to up- 


date the text and to control the page and line format. 


special print chain. 


Copies of this and other 
Branch Offices. 


Page impressions 
for photo-offset printing were obtained from an IBM 1403 Printer 


using a 


IBM publications can be obtained through IBM 


A form for readers" comments appears at the kack of this publication. Ad- 
dress any additional comments concerning the contents of this publication 


to: IBM Corporation, Programming Systems Publications, 
Neighborhood Road, Kingston, New York 12401 


© 1965 by International Business Machines Corporation 


Department 637, 


Basic Programming Support FORTRAN, Form 
C28-6504-1, with no technical news- 
letters (Note that the name Special 
Support FORTRAN has been changed to 
Basic Support FORTRAN.) 

Level E FORTRAN, Form C28-6513-0, 
no technical newsletters 

Level H FORTRAN, Form C28-6515-2, with 
no technical newsletters 


with 


ORGANIZATION OF THIS MANUAL 


The body of the manual is divided into 
Six major sections with each section devot- 
ed to a specific type of information. 


The "Introduction" provides basic infor- 
mation on the characteristics of the pro- 
gram. 


The section "General Description of the 
Program" provides the reader with an over- 
all view of the program and serveS aS an 
introduction to the detailed sections that 
follow. 


The section "General Problems in Con- 
verting to System/360 FORTRAN" contains 
discussions of some of the major differen- 


ces between current FORTRAN II and 
System/360 FORTRAN IV. The section alsc 
indicates control card options that can be 
used to designate the manner in which the 
FORTRAN LCP is to resolve some of these 
differences. 


The “Conversion Actions" section con- 
tains a series of lists that show. the 
manner in which the LCP processes specific 
source statements. The first list, enti- 
tled "Conversion Actions for Current FOR- 
TRAN II Compilers,“ contains discussions of 
items that must be converted for all cur- 
rent FORTRAN II compilers. Subsequent 


lists contain items that apply Specifically 
to one current FORTRAN II compiler such as 
1401 FORTRAN, 1410 FORTRAN, etc. A user 
interested in a particular item need look 
in only two lists -- the all-compilers list 
and a specific-compiler list -- to obtain 
information on that item. 


The “Conversion Output and Messages" 
section describes the output listing pro- 
duced by the FORTRAN LCP and explains the 
messages that appear in the listing. 


The "Control 
Procedures" 


Cards and Operating 
section lists the control 
information that the user specifies in 
control cards and describes the IBM 1401 
configurations on which the FORTRAN LCP can 
be used. 


Two appendixes are provided. Appendix A 
contains a sample converted program. The 
sample shows the original source program 
and the System/360 source program generated 
by the FORTRAN LCP. Appendix B shows’ the 
System/360 function names that are equiva- 
lent to the function names used in current 
FORTRAN II compilers. 


NATURE OF FORTRAN INFORMATION IN THIS 
MANUAL 


The discussion of each FORTRAN item in 
this manual is intended primarily to indi- 
cate how that item is acted upon by the 
FORTRAN LCP. To explain conversion 
actions, many major differences between 
current FORTRAN II and System/360 FORTRAN 
IV are described. However, this manual 
does not delineate all of the differences 
between a current FORTRAN II compiler and 
System/360 FORTRAN, nor does the manual 
list all of the requirements of System/360 
FORTRAN. 
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The FORTRAN II Language Conversion Pro- 
gram (FORTRAN LCP) is one of a series of 
programs provided by IBM to assist in 
transition from a current IBM data process- 
ing system to System/360. 


The FORTRAN language provided for 
System/360 is the more powerful FORTRAN IV 
language. The FORTRAN II languages are 
sufficiently different from System/360 FOR- 
TRAN IV to require some recoding to prepare 
the earlier programs for compilation on 
System/360. 


The purpose of the FORTRAN LCP is to 
reduce the time and effort required to 
convert existing FORTRAN II programs into 
System/360 FORTRAN IV programs. 


To accomplish this, the FORTRAN LCP does 
the following: 


e Recognizes FORTRAN II statements) that 
are incompatible with System/360 FOR- 
TRAN. | 

e When possible, translates incompatible 
FORTRAN If statements into System/360 
FORTRAN statements that have the same 
meaning and effect. 

e Detects and flags FORTRAN II statements 
that have no System/360 FORTRAN equiva- 
lent or cannot be translated into a 
meaningful sequence of System/360 FOR- 
TRAN statements. 

e Issues messages indicating incompati- 
bilities that were found and specifying 
whether conversion action was taken. 

e Produces an output listing that always 
contains the converted FORTRAN II 
Statements and messages that document 
the conversion actions. When 
specified, the iisting also contains 
the original source statements. 

e Produces a punched deck, when 
specified, that contains the converted 
program. 


Guided by the messages in the listing, a 
programmer can make any hand changes 
required to make his program compatible 
with System/360 FORTRAN IV. 


ACCEPTABLE LANGUAGES 


The FORTRAN LCP processes programs writ- 
ten in any of the following current IBM 
FORTRAN II languages: 


IBM 1401 FORTRAN 


INTRODUCTION 


IBM 1410 FORTRAN II 

IBM 1620 GOTRAN 

IBM 1620 FORTRAN With FORMAT 
IBM 1620 FORTRAN II 

IBM 7070-Series FORTRAN 

IBM 7070 FOS FORTRAN 

IBM 705 FORTRAN 

IBM 7080 Processor FORTRAN 
IBM 7090/7094 FORTRAN II 


Each of these languages is described in 
one of the publications listed in the 
Preface under "Prerequisite Literature." 


In the remainder of thisS manual, the 
phrases “current FORTRAN II compilers" and 
"current FORTRAN II" are defined to mean 
the languages listed above. 


OUTPUT LANGUAGES 


The FORTRAN LCP converts source programs 
into any of the following System/360 FOR- 
TRAN IV languages: 


IBM System/360 Basic Programming Support 
FORTRAN (Level D) 
IBM Operating System/360 FORTRAN IV (E 
_ Level Subset) 
IBM Operating System/360 
(Level 4H) 


FORTRAN IV 


In the remainder of thiS manual, the 
term System/360 FORTRAN is used to refer 
jointly to all three levels of System/360 
FORTRAN IV. When referring to a specific 
level of System/360 FORTRAN IV, one of the 
following terms is used: Basic Support 
FORTRAN, Level E FORTRAN, or Level H  FOR- 
TRAN. 


MINIMUM MACHINE REQUIREMENTS 


The FORTRAN LCP can be executed on an 
IBM 1401 Data Processing System or an IBM 
System/360 with the 1401 Compatibility Fea- 
ture. | 


The minimum 1401 configuration required 
for use of the program is as follows: 
1. An IBM 1401 
with: 
e 8,000 positions of core storage 
e Advanced Programming Feature 
e High-Low-Equal Compare Feature 


Data Processing System 
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2- One IBM 1402 Card Read-Punch 

3. One IBM 1403 Printer, Model 2 

4. Three IBM 729 Magnetic Tape Units 
(Models II, IV, V, or VI) or three IBM 
7330 Magnetic Tape Units 


This minimum configuration allows proc- 
essing Of one source program at a time from 
the card reader or from tape. 


An additional magnetic tape unit is 
required for each of the following options: 


1. Processing stacked 
input from tape. 

2. Processing with the FORTRAN LCP system 
on tape instead of cards. 

3. Recording of printed and/or punched 
output on tape. 


source program 


The minimum System/360 configuration 
required for use of this program must be 
equivalent to the 1401 configuration des- 
cribed above. Information on equivalent 
System/360 configurations can be found in 


the publications IBM System/360 Model 30; 
140171440/1460 Compatibility Feature, Form 
A24-3255, and IBM System/360, Model 40; 


EFmulation of the IBM 1401/1460 Data  Proc- 
esSing System, Form C28-6561. 

Details on 1401 processing configu- 
rations are provided in the section 


"Control Cards and Operating Procedures." 


TERMINOLOGY 


The following discussions concern terms 
that are used throughout this manual. 


INTEGER AND REAL 


Many IBM FORTRAN II manuals use _ the 
terms fixed-point and floating-point to 
describe the types of constants, variables, 
and functions. System/360 FORTRAN uses the 
terms integer and real in place of fixed- 


point and floating-point, respectively. 


The terms integer and are used 


throughout this manual. 


real 


SINGLE-PRECISION AND DOUBLE-PRECISION 


The terms Single-precision and double- 
precision are used in 7090/7094 FORTRAN II 


to describe the precision of constants and 
variables and to indicate the precision of 
calculations. 


In System/360 FORTRAN, length 
specification and type (integer, real, com- 
plex, or logical) determine the precision 
of a value or a calculation. 


The terms sSingle-precision and double- 
precision have been retained in this manual 
to aid the programmer who is already 


familiar with them. As applied to 
System/360, the term sSingle-precision is 


used to describe a real value that occupies 
four bytes, and the term double-precision 
is used to describe a real value that 
occupies eight bytes. The terms are also 
used to describe calculations that result 
in such values. 


CATEGORIES OF FUNCTIONS AND SUBPROGRAMS 


This manual uses the following categor- 
ies for functions and subprograms: 


Arithmetic Statement Functions 
Built-In Functions 

Library Functions 

Function Subprograms 
Subroutine Subprograms 


In some current FORTRAN II compilers, 
there is no distinction between built-in 
and library functions. In these compilers, 
only the term library function is used. In 
7090/7094 FORTRAN II, built-in functions 
are compiled as "“open™“ subroutines’ and 
appear in the object program each time they 
are referred to in the source program. 
Library functions are compiled as “closed" 
subroutines and appear only once in the 
compiled program. 


The reader should note that the terms 
built-in function and library function do 
not appear in System/360 FORTRAN manuals. 
These functions have been incorporated into 
System/360 FORTRAN as function subprograms. 
In addition, the reader should note that 
the term arithmetic statement function has 
been shortened to statement function in 
System/360 FORTRAN. 


Thus, System/360 FORTRAN uses only the 
following three categories for functions 
and subprograms: 


e Statement Functions 
e Function Subprograms 
e¢ Subroutine Subprograms 


The FORTRAN LCP is deSigned to accom- 
plish a maximum amount of conversion. The 
program includes a variety of options that 
permit the user to apply it effectively to 
a wide range of FORTRAN II conversion 
needs. 


Flexibility has been built into the 
program in the following major areas: 


e Ability to translate from any of ten 
current IBM FORTRAN II languages into 
any of three levels of System/360 FOR- 
TRAN. 

e Provision for use of the program on a 
variety of 1401 machine configurations. 

e Construction of the program so that it 
will bypass certain processing phases 
when the functions performed by those 
phases are not needed. 

e Inclusion of messages that indicate all 
conversion actions and clearly identify 
statements that could not be converted. 

e Provisions for both card and listing 
output with the ability to suppress 
card output. 


These teatures of the program are sum- 
Marized in the paragraphs that follow. 
When details on a topic are provided in 
other sections of the manual, a reference 
is provided to the appropriate section. 


CHARACTERISTICS OF SOURCE PROGRAMS TO BE 
CONVERTED 


Each source program submitted to the 
FORTRAN LCP must have been compiled suc- 
cessfully on the user's current FORTRAN II 
compiler. 


The source program may consist of 
punched cards or of 80-character unblocked 
card images on tape. 


It is strongly recommended that the 
source programs be subjected to LCP conver- 
sion before any hand changes are made. 
This takes maximum advantage of the FORTRAN 
LCP capabilities and precludes hand coding 
errors that might cause erroneous conver- 
sion. 


If any hand changes are made prior to 
conversion, these changes must not make the 
program unsuitable for compilation on the 
current IBM compiler for which the program 
was written originally. 


GENERAL DESCRIPTION OF THE PROGRAM 


The source program may contain current-— 
monitor or FORTRAN-compiler control cards 
and non-FORTRAN statements. The manner in 
which the FORTRAN LCP treats these control 
cards and statements 1S explained in the 
following paragraphs. 


e Current-Monitor and  Current-Compiler 
Control Cards: No attempt iS made to 


convert these cards into System/360 
control cards. These control cards are 
merely reproduced in the source program 
listing. The cards are not included in 
the punched output. 

e Non-FORTRAN Statements: The FORTRAN LCP 
makes no attempt to convert portions of 
a FORTRAN program that are written in 
ancther language. These statements are 
reproduced in the source program list- 
ing. If Specified, non-FORTRAN' state- 
ments are also punched. The user is 
responsible for recoding and reassem- 
bling non-FORTRAN routines. 


The user is cautioned that each FORTRAN 
program and subprogram iS converted separ- 
ately. This requires that the user provide 
a separate LCP control card deck for each 
program and subprogram. Because each pro- 
gram iS converted separately, there is no 
cross-checking between a subprogram and a 
calling program. 


PROCESSING OPTIONS 


Conversion can be executed on a variety 
of 1401 configurations, depending on avai- 
lable equipment and the user's preferences. 
Details on processing configurations are 
provided in the section "Control Cards and 
Operating Procedures." 


The input options are as follows: 


e System Input Options: The FORTRAN LCP 
system can be loaded from the card 


reader or from a magnetic tape unit. 

e Source-Program Input Options: The 
source program to be converted can be 
read from either the card reader or a 
magnetic tape unit. 


When both the FORTRAN LCP and the source 
program are on cards, only one source 
program at a time can be converted. Howev- 
er, when a fourth tape unit is available, 
Stacked programs can be processed from tape 
or from the card reader. 
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The output options are as follows: 


e Listing Output: The FORTRAN LCP always 


provides a listing of the converted 
program. A listing of the original 
source program is optional and is pro- 


vided only if specified by the user. 

e Punched Card Output: The user can spec- 
ify that the converted program is to be 
punched into cards. If desired, non- 
FORTRAN statements will be punched and 
separated from converted FORTRAN 
statements. 


Options are available to record punched 
and/or printed output on magnetic tape. If 
both forms of output are to be on tape, 
they will be recorded on the same tape. 


PROGRAM ACTIONS 


The FORTRAN LCP takes one of four types 
of action when it recognizes an incompati- 
ble source Statement. Each type of action 
is discussed in the following paragraphs. 


1. Full Conversion: When possible, the 
FORTRAN LCP converts an incompatible state- 
ment into the appropriate form for 
System/360 FORTRAN. A message in the out- 
put listing indicates that the statement 
has been converted. 


For example, System/360 FORTRAN requires 
that READ and WRITE statementS appear in 
the FORTRAN IV format. 


Thus, a FORTRAN II statement such as: 
READ INPUT TAPE IN, 45, A, B, C 
is converted to: 
READ (IN,45)A,B,C 


2. Conversion With Warning: In _ some 
instances, the FORTRAN LCP converts an 


incompatible statement to an acceptable 
System/360 form, but issues a warning mes- 
Sage to indicate that the conversion might 
produce undesirable execution results. 


For example, in System/360 FORTRAN, a 
Single-precision real constant may contain 
no more than seven digits. 


When the FORTRAN LCP encounters a 
Single-precision real constant containing 
more than seven digits, it adds E-exponent 
notation, but does not truncate the con- 
stant. 


Thus, the statement: 
X = 12345678. 


is converted to: 
X = 12345678.E0 


In the output listing, the converted 
statement iS accompanied by a message indi- 
cating that the statement may produce unde- 
Sirable results during execution of the 
converted program. The warning is issued 
because the constant may exceed the preci- 
Sion that can be accommodated in a single 
System/360 machine word. 


3. Warning of Possible Incompatibil- 
ity: The format of a FORTRAN II statement 


may be entirely acceptable to System/360 
FORTRAN, but the effect of the statement in 
System/360 FORTRAN may differ from its 
effect on the computer for which it was 
written. 


For example, a FORMAT statement contain- 
ing A-conversion may be acceptable to 
System/360 but may not produce the same 
results it did on a current IBM computer. 


Specifically, assume the following cod- 
ing is used in a 7090 FORTRAN II program to 
read BCD information from tape records: 


DIMENSION NAME (2) 


oe 


10 FORMAT (2A6) 


READ INPUT TAPE IN, 10, NAME 


When the READ statement is executed ona 


7090, 12 BCD characters from symbolic tape 
unit IN are read into two 7090 machine 
words. (Each 7090 word holds six BCD 


characters.) 


However, on a System/360, the two 
machine words reserved by the DIMENSION 
statement will hold only 8 of the 12 


characters. (Each System/360 word holds 
four EBCDIC characters.) If the READ 
statement were converted and executed on a 
System/360, the first 2 characters on tape 
would be skipped, 4 characters would be 
read into NAME(1), 2 more characters would. 
be skipped, and 4 characters would be read 
into NAME (2). 


The FORTRAN LCP issues a warning message 
for a statement (such as the FORMAT state- 
ment above) when the statement might pro- 
duce undesirable results on a System/360. 


4. Incompatible Item, No Conversion: In 
some instances, an incompatible statement 


cannot be translated to an acceptable 
System/360 form. 


For example, Boolean statements in 7090 
FORTRAN II cannot be converted because 
System/360 FORTRAN does not manipulate Boo- 


lean functions; instead, it implements log- 
ical variables and expressions. 


Because of this, the FORTRAN LCP flags 
each Boolean statement with a message indi- 


cating that the statement was not 
converted. 


USE OF THE OUTPUT LISTING 


The output listing produced by the FOR- 


TRAN LCP alwayS contains the converted 
program Statements and messages generated 
during conversion. The listing may also 
contain tables that indicate changes in 


function names and variable names (see _ the 
section "Conversion Output and Messages"). 
At the user's option, the listing can aiso 
contain the original source statements. 


Two types of meSsageS appear in the 
converted program listing -- text messages 
and numeric message codes. A text message 
appears beside each statement that iS  con- 
verted by the LCP, generated by the LCP, or 
recognized aS incompatible with System/360 
FORTRAN. The numeric message codes’ (each 
four digits long) are provided to indicate 
the exact nature of a conversion action or 
to flag incompatible items. These message 
codes will be explained ina later version 
of this reference manual. 


Using the output listing, the programmer 
can analyze conversion actions and deter- 
mine whether any hand changes are required. 
If hand changes are required, they can be 
inserted into the converted output deck. 
The deck is then ready for compilation on a 
System/360 FORTRAN compiler. 
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GENERAL PROBLEMS IN CONVERTING TO SYSTEM/360 FORTRAN 


Conversion to System/360 FORTRAN 
involves consideration of several general 
problems caused by differences in machine 
characteristics and differences among indi- 
vidual FORTRAN II compilers. 


These general problems include differen- 
ces in data file requirements, card codes, 
precision of calculations, arrangement of 
arrays, treatment of double-precision and 
complex values, and variances in the manner 
in which related COMMON and EQUIVALENCE 
problems are handled. 


The FORTRAN LCP provides a solution for 
most of these differences. However, some 
problems either exceed the scope of lan- 
guage conversion, Or are not subject to 
independent logical analysis. In these 
cases, the LCP signals the user that he 
must resolve the problem by making hand 
coding changes after conversion. 


The discussions in this section are 
intended to call attention to these general 
problems and to indicate those problems for 
which FORTRAN LCP provides a solution. For 
certain problems, the user can specify in a 
control card the manner in which the FOR- 
TRAN LCP is to handle the problem. These 
options are explained within the appropri- 
ate discussions. 


DATA FILE CONVERSION PROBLEM 


Users who are converting programs for 
System/360 will also be concerned with the 
problem of data file conversion. Informa- 
tion on this subject will be-provided ata 
later time. : 


DUAL-~CHARACTER-CODE PROBLEM AND OPTIONS 


Two basic sets of graphics are associat- 
ed with the Binary Coded Decimal Inter- 


change Code (BCDIC) used on current IBM 
computers. The two sets are the H Set and 
the A set. The H set is used in FORTRAN 


programs. 


In five cases, the card code used for a 
character in the H set is the same as the 
card code used for a different character in 
the A set. The conflicting characters, 
called dual characters in this manual, are: 


10 


H-Set A-Set 
Character Character Card Code 
+ & 12 
= # 3-8 
: a u~-sg 
) px 12-4-8 
( yA 0-4-8 


The card code used in System/360 is the 
Extended Binary Coded Decimal Interchange 
Code (EBCDIC) . In EBCDIC, the codes for 
the H-set characters have been changed so 
that each character has a Separate and 
distinct code. | 


The EBCDIC character and card codes are: 


Character Card Code 
+ 12-6-8 
& 12 
= 6-8 
# 3-8 
' 5-8 
a) 4-8 
) 11-5-8 
<(replaces ~) 12-4-8 
( 12-5-8 
A 0-4-8 
system/360 requires that the proper 
EBCDIC card code be used for the former 


H-set dual characters. 


FORTRAN LCP Options: The FORTRAN LCP 
provides control card options that allow 


the user to desSignate the type of code 
contained in his source deck and the type 
of code he wants punched in his output 
deck. The code that is present in the 
source program is deSignated in one control 
card, and the desired output code is desig- 
nated in another control card. (See the 
section "Control Cards and Operating Proce- 
dures.") 


By using these control cards, the user 
can specify one of four input/output combi-_ 
nations for treatment of dual-character 
codes, as follows: 


BCDIC input with BCDIC output 
BCDIC input with EBCDIC output 
EBCDIC input with BCDIC output 
EBCDIC input with EBCDIC output 


MAGNITUDE AND PRECISION PROBLEMS 


Differences in machine characteristics 
and compiler specifications contribute to 
potential conversion problems in the _ fol- 
lowing FORTRAN areas: 


e The magnitude of a constant or variable 
in a FORTRAN II program may exceed the 
limits of System/360 FORTRAN. 

e The precision of System/360 FORTRAN 
calculations may be either greater than 
or less than precision of current FOR- 
TRAN II calculations. 

These problems are discussed in the 
following paragraphs. 


MAGNITUDE OF CONSTANTS AND VARIABLES 


Each FORTRAN II compiler contains res- 
trictions on the magnitude of constants and 
variables. 


In some cases, the permissible magnitude 
for a current FORTRAN II compiler exceeds 
the limits of System/360 FORTRAN. This may 
cause differences in execution results. If 
a constant or variable in a source program 
exceeds System/360 limits, the wuSer may 
want to change the constant or modify his 
program to make the magnitude compatible 
with System/360. 


The System/360 
as follows: 


limits on magnitude are 


Type of 
Constant or Limits on 
Variable Magnitude 
Integer 2222] 
(Or approximately 109) 
Real 16—€3 through 16°? or 0 


(Or approximately 1075) 
16-3 through 1663 or 0 
(or approximately 1075) 


Double-Precision 


PRECISION OF CALCULATIONS 


The precision of a FORTRAN calculation 
depends on the amount of core storage 
provided to hold the fraction portion of a 
real value. The greater the number of 
machine character-positions or binary bits 
provided for the fraction, the greater the 
precision of the computed value will be. 


The maximum precision that can be 
achieved in a System/360 is less than the 
precision that can be achieved in some 
current IBM computers. This may cause 


differences in resultsS when the converted 
program iS executed on a System/360. 


The System/360 limits on the precision 
of constants are as follows: 

Type of Limits on 

Constant Precision 

Integer 223=7] 

Real 1 through 7 decimal 
digits 

Double-Precision 1 through 16 decimal 
digits 


PRECISION OF FUNCTIONS 


Some System/360 functions are more prec- 
ise than the same FORTRAN II functions 
because new algorithms have been developed 
for real arguments. This may also cause 
differences in resultS when a converted 
program is executed on a System/360. 


FUNCTION-NAME CONFLICTS 


The names of FORTRAN functions provided 
in System/360 FORTRAN differ from the names 
for the same functions in current FORTRAN 
II compilers. 


Appendix B shows the System/360 function 
names that are equivalent to function names 
used in current FORTRAN II compilers. Note 
that IBM-provided functions are classified 
as function subprograms in System/360 FOR- 
TRAN, whereas these functions were classi- 
fied as built-in and library functions in 
current FORTRAN ITI. 


Conversion to System/360 Function Names: 
The name of each IBM-provided function that 


appears in a FORTRAN II source program is 
changed to its proper System/360 name. For 
example, the function name XABSF iS_ con- 
verted to IABS wherever it appears in the 
source program. 


Because the System/360 function names 
are new, it is possible that a FORTRAN II 
programmer used one of these names for a 
function or subprogram that he wrote him- 
self. This could produce a situation in 
which a user-created function or subprogram 
name would be the same as a System/360 
function name. The FORTRAN LCP takes 
action to prevent such name conflicts in 
the converted program. 


The possibility also exists that a user- 
written function or Subprogram name is the 
same aS a System/360 reserved word. The 
FORTRAN LCP also prevents this’ type of 
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conflict in a converted program. (Note 
that there are no reserved words in 
System/ 360 Level H FORTRAN. When 


converting to this level, the FORTRAN LCP 
Goes not have to check for conflicts with 
reserved words.) 


Prevention of Name Conflicts: To avoid 
the above possibilities, the FORTRAN LCP 
checks each user-written function or sub- 
program name against a list of System/360 
function names and reserved words. If a 
Match occurs, the uSer-written name is 
replaced with an LCP substitution name. A 
unique LCP substitution name is provided 
for each source program function name that 
could possibly conflict with a System/360 
function name or reserved word. Therefore, 
the same name is used to replace a particu- 
lar conflicting name in all programs (and 
subprograms) processed by the FORTRAN LCP. 


Form of LCP Substitution Names: An LCP 
substitution name iS in one of the follow- 
ing three forms: 


FCxxP (Used to replace specific real 
function or subprogram names) 

LCxxP (Used to replace specific inte- 
ger function or subprogram 
names) 

SCxxP (Used to replace specific real 


function or subprogram names) 


The xx portion of the name consists of two 
digits ranging from 01 to 99. (The fact 
that two forms are provided for replacement 
of real function and subprogram names has 
no Significance for the programmer; the two 
forms are provided merely to facilitate 
internal LCP processing.) 


The user should note that the letter D 
or C is added to the front of the LCP 
Substitution name when the function or 
Subprogram is double-precision or complex, 
respectively. 


The insertion of an LCP substitution 
name is illustrated in the example shown 
below. Note that in the original coding, 
AIMAG is the name of a user-written func- 
tion subprogram. The problem results from 
the fact that AIMAG is also the name of a 
System/360 function. 


Original: 

Y=AIMAG (X) 

Converted: 

=FCO01P (X) 

The name FCO1P is the LCP substitution 


name that.is used to replace AIMAG wherever 
it appears in a source program. 
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Possible Substitution Name Problem: 
User-created function and subprogram names 
are also checked against the 1ist of LCP 
substitution names. if a match is 
detected, the LCP issues a message to 
indicate that the user-created name may 
have to be changed by hand. 


For example, assume the source program 
contains the following statement in which 
FCO1P is a user-created function subprogram 
name: 


A=FC01P (B) 


The function name FCO1P need not be 
changed if that name (which is also an LCP 
substitution name) has not been inserted 
into the program to replace a reference to 
the function AIMAG, and the user's library 
does not contain a function named AIMAG. 


In extreme cases, the program might 
contain a double conflict. For example, 
assume that a source program contains the 
following statement in which AIMAG and 
FCO1P are the names of user-created func- 
tion subprograms: 


X=AIMAG (Y) +FCO1P (2) 


During conversion, AIMAG is replaced by 
the LCP substitution name FCO1P. The 
statement than contains the same name for 
two different function subprograms. The 
converted statement appears as follows: 


X=FCO1P (Y) +FCO1P (2) 


The FORTRAN LCP detects that the second 
function name matches an LCP substitution 
name and issues a warning message. The 
user would have to change the second func- 
tion name by hand to remove the conflict. 


Note: Besides changing the name in the 
source program, the user must also change 
the name of the function in his library. 


VARIABLE-NAME CONFLICTS AND OPTIONS 


Two conditions can cauSe a variable name 


in a source program to be invalid. Those 
conditions are: 
e The variable name is the Same aS a 


System/360 function reserved 
word, or 
e The variable name is the Same as an LCP 


substitution name. 


name Or 


In either case, the FORTRAN LCP replaces 
the conflicting variable name with a six- 
character insert variable. 


Form of Insert Variables: There are two 
forms of insert variables, as follows: 


LCPxxx (Used to replace integer 
variables) 
FCPxxx (Used to replace real variables) 


The xxx portion of both forms consists of 
three digits. The first insert variable 
required for a program contains the digits 
000, and the count is increased by 1 for 
each additional variable that is needed. 


If a variable name already present in a 
source program coincidentally matches a 
potential insert variable, the source 
program variable is left unchanged and the 
conflicting insert variable is not used 
during conversion of the program. For 
example, if a source program coincidentally 
contains the integer variable LCP000, the 
first integer insert variable used during 
the conversion will be LCP0O0O1. 


AS many as 15 integer variables and 15 
real variables can conflict with potential 
insert variables without affecting conver- 
sion. If more than 15 of one type conflict 
with potential insert variables, the con- 
version is terminated. A message is issued 
to indicate that the alphabetic portion of 
the LCP insert variable must be changed. 


Option to Change Insert Variables: The 
FORTRAN LCP allows the user to change the 


three alphabetic characters that will 
appear in each type of insert variable. To 
change the alphabetic characters to be used 
in insert variables, the uSer enters three 
alphabetic characters in a control card. 
(See "Control Card Entries™ in the section 
"Control Cards and Operating Procedures. ") 


Option to Replace Tape References: The 
FORTRAN LCP also allows the user to specify 


that a tape reference constant is to be 
replaced by a variable name or another tape 
constant. A tape constant is replaced by 
entering the following two items in a 
control card: (1) the tape constant as it 
appears in the source program, and (2) the 
variable name or tape constant that is to 
replace that reference whenever it appears 
in an input/output statement in the 
program. The FORTRAN LCP stipulates that 
when a tape constant is to be replaced by a 
variable name, the variable name must begin 
with one of the letters I through N. 


For example, assume that the uSer wants 
to replace references to Tape 6 with the 
variable IOUT in a program he is converting 
to System/360 Level H FORTRAN. By speci- 
fying the replace option, the user could 
cause the replacement action shown in the 
following conversion. 


Original: 


WRITE OUTPUT TAPE 6, 120, G, H, I 


Converted: 


DATA IOUT /6/ 


WRITE (IOUT, 120) G, H, I 

In specifying replacement of a tape 
constant, the user causes the constant to 
be changed every time it is encountered in 
an input/output statement. The user can 
specify that five different tape constants 
are to be modified throughout the program. 


ARRANGEMENT OF ARRAYS IN STORAGE 


The manner in which arrays are placed in 
storage varies among the current FORTRAN II 
compilers. As a result, there are signifi- 
cant differences between the arrangements 
used by some current compilers and the 
arrangement used by System/360 FORTRAN com- 
piler. 


These differences are of little or no 
importance to a programmer who uses. only 
FORTRAN coding to manipulate elements in an 
array. However, the differences are very 
Significant to the programmer who uses 
non-FORTRAN coding (Autocoder, for example) 
to manipulate elements, or to the program- 
mer who accesses only one part of a double- 
precision or complex number. 


INTEGER AND REAL (SINGLE-PRECISION) 
VARIABLES AND ARRAYS 


The various wayS in which elements are 
arranged in integer or real 
(Single-precision) arrays are illustrated 
in Figure 1. 


Each compiler controls the placement and 
manipulation of the elements according to 
its own conventions. If a programmer uses 
FORTRAN subscript notation and adheres to 
compiler rules, the proper elements in an 
array are used in computations. 


However, if a programmer haS used _  non- 
FORTRAN coding to manipulate the elements, 
he must be aware of the System/360 array 
arrangement in order to properly recode the 
non-FORTRAN portions of his program. 


The differences between 7090/7094 arrays 
and System/360 arrays are even more 
critical when manipulating elements in 
double-precision and complex arrays. The 
7090/7094 FORTRAN II compiler is the only 
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INTEGER AND SINGLE = PRECISION ARRAYS 


— 1401, 1620, 7070 - Series, and 7070 FOS FORTRAN IL 


DIMENSION A (2,3) 


oo] 


Column 3 


Column 2 


—-—-—————— et 


Column ] 
Location X 


Stored in ascending locations ; 


Column items are grouped together. 


DIMENSION A (2,3) 


Location X +n 


| Column 1 


Column 2 


Column 3 


| 
| 
| 
| 
| 
| 
| 
v 
X 


Stored in descending locations ; 
Column items are grouped together. 


705 and 7080 FORTRAN 


DIMENSION A (2,3) 


=] 


——_— OH 


Location X 


Stored in ascending locations; 


Row items are grouped together. 


Column 3 


Column 2 


Column ] 
Location X 


Stored in ascending locations; 
Column items are grouped together. 


Figure 1. Arrangement of Integer and Single-Precision Arrays in Storage 


current FORTRAN II compiler to provide 
double-precision and complex computations. 
Therefore, the following discussions apply 
only to that compiler and the System/360 
Level E and Level H compilers. 


DOUBLE-PRECISION VARIABLES AND ARRAYS 


Because of a difference in the machine- 
word format of double-precision numbers, 
the System/360 compilers -- unlike the 
7090/7094 FORTRAN II compiler -- do not 


allow _. direct access to the least 
Significant portion of a double-precision 
number. 

Differences in Machine-Word Format of 


Double-Precision Numbers: In the 7090/7094, 
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inter- 
real numbers. One 


a double-precision number is stored 
nally as a pair of 
36-bit word contains the most-significant 
part, and another 36-bit word contains the 
least-Significant part. Each part has its 
own characteristic and fraction. Both 
parts of the number are used in double- 
precision calculations, and it is possible 
to manipulate either part of the number 
independently. 


In System/360, a double-precision number 
is stored as an entity in one machine 
double-word. The first byte of the double- 
word contains the sign and the 
characteristic; the other seven bytes con- 
tain the fraction. The function SNGL can 
be used to derive the most-significant 
part. If the programmer desires the least- 
Significant part, he must code his own 


DOUBLE - PRECISION ARRAYS 


| 7090 /7094 FORTRAN II 


D DIMENSION B (2,3) 


Location X 


Figure 2. 


routine to derive it from the double-word 


entity. 


This 
format means 


difference in double-precision 
that a FORTRAN II statement 
containing a reference to the least- 
Significant part of a double-precision 
number cannot be translated into a meaning- 
ful System/360 FORTRAN statement. Because 
conversion is not possible, the FORTRAN LCP 
generates a message to indicate the state- 
ment must be changed by hand. 


Arrangement of Double-Precision Arrays: 


Figure 2 shows the arrangement of a double- 
precision array in 7090/7094 FORTRAN II and 
the arrangement of the same double- 
precision array in System/360. | 

Notice that in the example of the 
7090/7094 array, the six double-precision 
numbers occupy 12 storage locations. The 
Six most-Significant parts are followed by 
the six least-significant parts. 


This contrasts with the System/360 
double-precision array in which the six 
doubie-precision numbers are stored conse- 
cutively as six double-word entities. 


Numbers: The 


SYSTEM / 360 FORTRAN (Levels E and H) 


DOUBLE PRECISION B 
DIMENSION B (2,3) 


Double Word 


a 


Location X 


ms = Most-Significant Part 
Ils = Least-Significant Part 


Entity = Inseperable Parts 


Arrangement of Double-Precision Arrays in Storage 


Input and Output of Double-Precision 


combined format of double- 
precision numbers in System/360 also 
affects the manner in which double- 
precision values are read into and written 
out of storage. 


In 7090/7094 FORTRAN II, each half of a 
double-precision number must be read or 
written separately. There is no provision 
in the compiler for reading or writing a 
double-precision quantity as a Single 
entity. 


For example, to define and fill a 
Gouble-precision array the 7090/7094 pro- 
grammer could use the statements: 


D DIMENSION A (10) 
READ TAPE 5, (A(I), I=1, 20) 


These statements assume that all 10 most- 
Significant parts of the double-precision 
numbers are recorded on the input tape 
first, followed by all 10 least-significant 
parts of the numbers. 


The READ statement would be invalid in 


System/360 FORTRAN because the parts of a 
double-precision number cannot be read 
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separately. System/360 FORTRAN requires 
that a double-precision number be read or 
written as a single entity. 

Consequently, when converting a 


7090/7094 program to System/360 FORTRAN, 
hand changes must be made to input-output 
items in three areas: (1) The format of 
double-precision input data must be changed 
on its external medium; (2) FORMAT state- 
ments must be changed; and (3) input/output 
Statements must be changed. 


When the FORTRAN LCP encounters’ an 
input/output statement that contains a ref- 
erence to a double-precision variable or 
array, it issues a message to indicate the 
Statement must be changed by hand. The 
user iS responsible for making hand changes 
to FORMAT statements and for changing the 
format of the input data itself. 


COMPLEX VARIABLES AND ARRAYS 


Both System/360 FORTRAN and 7090/7094 
FORTRAN II store the real and imaginary 
parts of complex variables as_ separate 
values. 

Machine-Word Formats for Complex 


Numbers: In the 7090/7094, a complex number 
is stored internally as a pair of single- 
precision numbers. One 36-bit word 
contains the real part and another 36-bit 
word contains the imaginary part. Either 
part of the number can be manipulated 
independently. 


In a System/360, a complex number is 
also stored aS a pair of numbers. The real 
part may occupy either one word or a 
double-word. The imaginary part occupies 
the Same amount of storage as the corres- 
ponding real part. 


Nature of the Complex-Number Conversion 


Problem 


Two factors contribute to the conversion 
problem associated with complex numbers. 


One factor involves the different meth- 
ods by which a 7090/7094 FORTRAN II pro- 
grammer and a System/360 Level H FORTRAN 
programmer accesseS Separate parts of a 
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complex number. The other factor is a 
Significant difference in the sequence in 
which the compilers store the elements of a 
complex array. 


Accessing Separate Parts of a Complex 
Number: In 7090/7094 FORTRAN II, entire 


statements (not individual variable names 
Or arrays) are classified as complex. By 
using the appropriate subscripts ina non- 
complex statement, a FORTRAN programmer can 
access either part of a complex number. 


In System/360 FORTRAN, individual 
variable names, arrays, and functions are 
typed as complex. To secure the real or 
imaginary part of a complex number, the 
FORTRAN programmer must use the functions 
REAL or AIMAG. 


Arrangement of Complex Arrays: Figure 3 


Shows the arrangement of a complex array in 
7090/7094 FORTRAN II and the arrangement of 
the same array in System/360 Level H FOR- 
TRAN. 


The sequence of elements in a 7090/7094 
complex array iS Similar to the Sequence of 
elements in a 7090/7094 double-precision 
array, Shown in Figure 2. In a complex 
array, all of the real parts precede all of 
the imaginary parts. This is similar to 
the double-precision array in which all of 
the most-Significant parts precede all of 
the least-significant parts. 


The real and imaginary parts are 
sequenced differently in a System/360 com- 
plex array. In a System/360 array, the 
real part of each complex number is fol- 
lowed immediately by the imaginary part. 


Because of the two factors discussed 
above, references in a FORTRAN [II program 
to the separate parts of a complex number 
would be invalid in System/360 Level 4H 
FORTRAN unless conversion actions are taken 
to make them valid. 


FORTRAN LCP Actions for Complex Variables 
and Arrays . 


The FORTRAN LCP handles the complex- 
number conversion problem by doubling the 
dimension of each complex variable and 
array, and by treating each part of the 
converted variable or array as ae real 
value. 


COMPLEX ARRAYS 


7090/7094 FORTRAN IT SYSTEM /360 FORTRAN ( Level H) 


I DIMENSION 6B (2,3) 


Location X 


Figure 3. Arrangement of Complex Arrays in 


By doubling the dimension of the 
variable or array, the FORTRAN LCP causes 
the System/360 compiler to provide the same 
number of machine words for the array as 
were provided by the 7090/7094 compiler. 
This allows the elements in the array to be 
stored and manipulated in a manner similar 
to 7090/7094 FORTRAN II. 


The Significance of the dimension action 


is illustrated in the following conversion 
example: | 
Original: 
I DIMENSION B (2, 3) 
READ INPUT TAPE 5,10, ((B(I,J), 
I=1, 2) J=1, 6) 
Converted: 


DIMENSION B (2, 6) 


READ (5,10) ((B(I,d) ,I=1, 2) J=1, 6) 


COMPLEX B 
DIMENSION B (2,3) 


One Word Next Word 


SSS 


A" 


Location X 1,1 (imag ) 


real = Real Part 


imag = Imaginary Part 


Storage 


In System/360, the converted DIMENSION 
statement will create an array consisting 
of 12 machine words, the same number of 
words required for the complex array gener- 
ated from the original statement in 
7090/7094 FORTRAN II. 


Except for conversion to FORTRAN IV for- 
mat, the READ statement is unchanged. The 
implied DO in the statement remains valid. 
When the READ statement is executed on a 
System/360, the elements are stored in the 
sequence shown in Figure 4, which is the 
same sequence as in the equivalent 
7090/7094 array (see Figure 3). Note aiso 
that, by doubling the dimension of the 
array, the FORTRAN LCP has made it possible 
to read the data without changing the 
format of the data on its external medium. 


Thus, the LCP action ensures that ref- 
erences to one part (real or imaginary) of 
a complex variable within noncomplex state- 
ments in the program remain valid. Such 
references require no conversion. 


conversion of 
are provided 


Further details on 
7090/7094 complex statements 
under the heading “Complex Operations" in 
the section “Conversion Actions for the 
7090/7094 FORTRAN II Compiler." 
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Contents After 7090/7094 


System / 360 Array Data Has Been Read 


DIMENSION B (2,6) 


xX + 44 
(4 bytes 


per word ) 


Imaginary Part of 2,3 
Imaginary Part of 1,3 


Imaginary Part of 2,2 


f 2,5 (real ) | 
2,4 (real ) | 
1,3 ( 

iV 


Imaginary Part of 1,2 


Imaginary Part of 2, 1 


| 

| Imaginary Part of 1, 1] 
| | 2,3 (real) Real Part of 2,3 

| 

| 

| 

| 


Real Part of 1,3 


1,1 (real) 


Real Part of 2,2 
Real Part of 1,2 
Real Part of 2,1. 


Location X Real Part of 1,1 


System/360 Array Resuiting From 
Converted DIMENSION Statement 


Figure 4. 


COMMON-EQUIVALENCE INTERACTION PROBLEM AND 
OPTION 


Conversion to System/360 FORTRAN may 


require resolution of the COMMON- 
EQUIVALENCE interaction problem. This 
problem results from the fact that some 
FORTRAN La compilers give EQUIVALENCE 


Statements precedence over COMMON’ state- 
ments in allocating COMMON storage. In 
contrast, System/360 FORTRAN gives prece- 


dence to the COMMON statements. 


This difference can have serious effects 
on the allocation of COMMON’ storage by 
System/360 FORTRAN unless adjustments are 


made to ensure that the COMMON area is 
structured in the same way it was struc- 
tured in FORTRAN II. 

The FORTRAN II compilers that give 


precedence to EQUIVALENCE statements are: 


1410 FORTRAN II 
7070-Series FORTRAN 
7070 FOS FORTRAN 
7090/7094 FORTRAN II 


In converting from one of these FORTRAN 
languages to System/360 FORTRAN, the user 
must determine whether or not the equiva- 
lencies specified in the FORTRAN II program 
are to be preserved in the System/360 
program. 
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The COMMON-EQUIVALENCE interaction prob- 
lem is not involved in conversion from any 
of the other FORTRAN II languages. The 
1620 FORTRAN II compiler gives precedence 
to COMMON statements. None of the remain- 
ing FORTRAN II compilers provide both the 
COMMON statement and the EQUIVALENCE state- 
ment, and some provide neither. 


The nature of the COMMON- EQUIVALENCE 
interaction problem and the manner in which 
the FORTRAN LCP resolves the problem are 
discussed in the following text. 


NATURE OF THE PROBLEM 


In 1410, 7070-Series, 7070 FOS, and 
7090/7094 FORTRAN II, EQUIVALENCE state- 
ments take precedence over COMMON’ state- 
ments in allocating COMMON storage. When 
variables named in COMMON statements also 
appear in EQUIVALENCE statements, the ordi- 
nary sequence of the variables in COMMON 
storage is changed. Priority is given to 
the variables in EQUIVALENCE statements in 
the order in which they appear in the 
EQUIVALENCE statements. 


For example, the statements shown below 
result in the indicated storage 
allocations: 


FORTRAN IL SYSTEM/360 FORTRAN 


COMMON A,B 
EQUIVALENCE (B,C) 


COMMON X,Y 
EQUIVALENCE Y,Z 


Storage Allocation 


Storage Allocation 


Notice that although the variable A is 
mentioned first in the COMMON statement, 
FORTRAN II relegates that variable to the 
second position in COMMON storage. Prece- 
dence is given to the EQUIVALENCE statement 
and the variable B and its equivalent C are 
located in the first area. 


In System/360 FORTRAN, however, the 
order in which the variables are assigned 
to COMMON storage is not affected by the 
equivalencing. System/360 assigns COMMON 
storage locations in the sequence in which 
variables are encountered in COMMON state- 
ments. Consequently, in the example above, 
the variable X is assigned first and the 
equivalenced variables Y and Z are assigned 
second. 


The problem is further complicated when 
an equivalenced variable also appears in a 
DIMENSION statement. 


FORTRAN II permits the first variakle 
mentioned in a COMMON statement to be 
equivalenced to a dimensioned variable even 
though the equivalencing forces reposition- 
ing of the first COMMON variable. An 
example of this follows: 


FORTRAN IT 


COMMON D 
DIMENSION E(2) 
EQUIVALENCE (D,E(2)) 


Storage Allocation 


In giving precedence to the EQUIVALENCE 
Statement, FORTRAN II assigns the first 
COMMON location to E(1), thus allowing D 


and E(2) to share the second location. 


This usage is not permitted in 
System/360 FORTRAN. Because System/ 360 
FORTRAN requires that arrays be stored in 
consecutive forward locations, a variable 
may not be made equivalent to an element in 
an array in such a way as to cause the 
proposed array to extend beyond the begin- 
ning of COMMON storage. 


A third phase of the COMMON- EQUIVALENCE 
interaction problem is shown in the follow- 
ing example: 


FORTRAN IL SYSTEM/360 FORTRAN 


COMMON U,V 
DIMENSION U(2),W(3) 
EQUIVALENCE (U(2), W) 


COMMON F,G 
DIMENSION F(2), H(3) 
EQUIVALENCE (F(2),H) 


Storage Allocation Storage Allocation 


1 ] 

2 2 

3. 3. 
4 4 

5 


The statements in this example cause 
FORTRAN II to leave a gap in COMMON storage 
between the locations assigned to the vari- 
ables’ F(2) and G. The EQUIVALENCE state- 
ment causes H(1), the first element in 
array H, to share the second location in 
COMMON storage with the variable F(2). Two 
locations must be provided for the elements 
H(2) and H(3). FORTRAN II assigns the 
variable G to the fifth location, thus 
avoiding any implied equivalence. 


This treatment contrasts with System/360 
FORTRAN in which the variable V is assigned 
to the third location, thus creating an 
implied equivalence between the variable V 
and the element W(2). 


FORTRAN LCP RESOLUTION OF THE PROBLEM 


The user can specify that the FORTRAN 
LCP is to resolve the COMMON- EQUIVALENCE 
interaction problem. If the user specifies 
the reorder COMMON option, the FORTRAN LCP 
generates new COMMON statements that will 
cause the System/360 compiler to allocate 
COMMON storage in the same way it was 
asSigned in FORTRAN II. 


Optionally, the user can designate that 
the LCP is to disregard the interaction 
problem and allow the COMMON statement to 
remain unchanged. 


When the user specifies that the problem 
is to be resolved, the three phases of the 
problem are handled as shown in the exam- 
ples below. The first three examples show 
the manner in which the FORTRAN II coding 
in the preceding examples would be convert- 
ed. 


EXAMPLE 1 


Original: 


Converted: 


COMMON A,B 
EQUIVALENCE (B,C) 


EQUIVALENCE (B, C) 
COMMON B,A 


Storage Allocation Storage Allocation 


EXAMPLE 2 


Original: Converted: 
COMMON D 
DIMENSION E(2) 
EQUIVALENCE (D,E(2) ) 


DIMENSION E(2) 
EQUIVALENCE (D,E(2) ) 
COMMON E 


Storage Allocation Storage Allocation 


1. E(l) 1. EQ) 


EXAMPLE 3 


Original: Converted: 

DIMENSION F(2), H(3) 
EQUIVALENCE (F(2),H) 
COMMON F,FCP000(2), G 


COMMON F,G 
DIMENSION F(2), H(3) 
EQUIVALENCE (F(2), H) 


Storage Allocation Storage Allocation 


1 
2 H(1) 
3. H(2) 
4 H(3) 
5 


. G 
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In Example 3, a dimensioned insert vari- 


able is created by the FORTRAN LCP and 
added to the COMMON statement to ensure 
that the System/360 compiler places the 


variable G in the fifth location of COMMON 
storage. 


Note that internal FORTRAN LCP process- 
ing normally causes the sequence of COMMON, 
DIMENSION, and EQUIVALENCE statements to be 
changed. In the converted program the 
sequence iS: DIMENSION, EQUIVALENCE, and 
COMMON. This change has no effect upon 
execution of the converted program. All 
specification Statements (except FORMAT 
statements) are moved to the beginning of 
the converted program. 


Example 4 shows the resolution of a 
combination of these problems. 


In Example 4, the COMMON-EQUIVALENCE 
interaction problem is resolved as follows: 


1. The array name L is inserted as the 
first variable in the COMMON statement 
so that L(1) will occupy the 
location in COMMON storage. This per- 
mits C(1) to be equivalent to L(2). 

2. The positioning of array C now relies 
on the position of array L and is 
determined by the EQUIVALENCE state- 
ment. Therefore, the array name C is 
removed from the COMMON statement. 

3. The insert variable FCP000 is created 
and placed in the COMMON statement to 
force element K(1) into equivalency 
with C (3). 

4. The array name K is inserted into the 
COMMON statement to provide for con- 
Secutive assignment of COMMON storage 
locations. 

5S. The variables B and A are placed at 
the end of the COMMON’ statement 
because they do not involve any equiv- 
alencies. 
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first | 


EXAMPLE 4 


Original FORTRAN II Coding: 
COMMON B,C,A 

DIMENSION C(4), K(3), L(2) 
EQUIVALENCE (C, L(2) ),(C(3), K) 


FORTRAN IL 


System/360 

Storage Allocation Storage Allocation 
1. LQ) Pak Peer L(1) 
25. U2 besaded C(1) De CON) edecue L(2) 
3. C(2) 3. C(2) 

4, K(I)...... C(3) 4, C(3)...... K(1) 
5, Ki2ye.dasc C(4) 5. C(4)...... K(2) 
6. K(3) Oy Ag dveaee K(3) 
7. B 

8. A 


Converted LCP Coding: 


DIMENSION C(4),K(3), L(2) 
EQUIVALENCE (C,L(2) ),(C(3),K) 
COMMON L, FCP000, K,B,A 


System/360 
Storage Allocation 


2 U2) coh, C(1) 
3. FCPOOO....C(2) 
Ae KO) chest C(3) 
5. K(2)...... C(4) 
6. K(3) 

7. 8B 

8. A 


The Reorder COMMON Option: The FORTRAN 
LCP provides a control-card option that 


enables the user to specify whether or not 


the COMMON-EQUIVALENCE problem is’ to be 
resolved. This option is the reorder COM- 
MON option. (See the section "Control 


Cards and Operating Procedures.") 


The lists in this section contain dis- 
cussions of FORTRAN items that require 
modification for System/360 FORTRAN. 


The lists include items that are con- 
verted by the FORTRAN LCP as well as items 
that require hand conversion. For an item 
that is converted by the FORTRAN LCP, the 
discussion explains how the statement is 
converted and provides a coding example to 
illustrate the conversion. For an item 
that cannot be converted, the discussion 
indicates the reason the conversion cannot 
be accomplished. 


ORGANIZATION OF THE LISTS 


The first conversion action list in this 
section contains discussions of items and 
Statements that must be converted for all 
current FORTRAN II compilers, or for all 
compilers except those specifically noted. 
When the discussion does not apply toa 
compiler, the exception is noted by the 
phrase “Not Applicable to..." at the 
beginning of the text. 


Subsequent lists in this section contain 
discussions of items and statements that 
apply to a Specific FORTRAN II compiler, 
i,e., 1401 FORTRAN, 1410 FORTRAN II, 1620 
GOTRAN, etc. 


Thus a FORTRAN II item that must _ be 
converted is either discussed in the all- 
compilers list or a specific-compiler list. 


A user interested in the conversion action 
for a particular FORTRAN II item should 
scan the all-compilers list first. If he 


fails to find the item there, he should 
look in the list that applies to his 
FORTRAN II compiler. 


The FORTRAN items in each 1isSt are 
arranged in the same Sequence in which they 
are discussed in the System/360 Level H 
FORTRAN manual, Form C28-6515. 


Within each list, individual items are 
grouped in the following categories: 


1. General Considerations 

2. Elements of the Language 
variables, and arrays) 

3. Arithmetic and Logical Expressions 

4. Control Statements (DO, GO TO, IF, 
etc.) 

5. Input/Output Statements 
FORMAT, etc.) 


(constants, 


(READ, WRITE, 


CONVERSION ACTION LISTS 


6. Specification Statements 
DIMENSION, and EQUIVALENCE) 
7. ‘Functions and Subprograms 


(COMMON, 


The FORTRAN LCP does not recognize cer- 
tain items and statements that are incompa- 
tible with System/360 FORTRAN. These items 
are discussed within the conversion action 
lists. However, aS an aid to the user, 
these items are also summarized in a separ- 
ate list entitled “Incompatibilities That 
Are Not Recognized." 


DATA SET TERMINOLOGY 


The terms data set and data set ref- 
erence number are used in the discussion of 


input/output statements. In System/ 360 
programming, the term data set refers toa 
named collection of data. A data set may 


reside on one or more input/output units. 
A data set reference number refers to the 
data set itself without regard to the 
input/output unit (or units) on which the 
data set resides. 


FORM OF CODING EXAMPLES 


are provided to illus- 
FORTRAN LCP 


Coding examples 
trate the manner in which the 
modifies a statement. 


The format of each coding example is: 


Original: 


FORTRAN CODING AS IT WOULD 
APPEAR IN THE SOURCE PROGRAM 


Converted: 


CODING AS IT WOULD APPEAR 
IN OUTPUT FROM THE FORTRAN LCP 


The printing format of this manual 
requires that some coding — statements be 
continued on one or more subsequent lines. 
These continuations are right-justified, 
and no continuation indicators are _ used. 
The reader should note that the continua- 
tions as shown in the examples do not 
reflect continuations produced by the FOR- 
TRAN LCP. All continuation lines generated 
by the FORTRAN LCP meet System/360 FORTRAN 
continuation requirements. | 
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CONVERSION ACTIONS FOR CURRENT FORTRAN ITI 
COMPILERS | 


This list contains items that must be 
converted for all current FORTRAN II  com- 
pilers, or for all compilers except those 
cited in a "Not Applicabie™ statement. 


General Considerations 


CONTROL CARDS: The FORTRAN LCP does not 
attempt to translate current-monitor or 
FORTRAN-IiI-compiler control cards. These 
cards are printed in the original source 
program listing with messages to indicate 
that they must be either removed or 
replaced. These cards are not included in 
converted punched output. 


NON-FORTRAN STATEMENTS: The FORTRAN LCP 


recognizes non-FORTRAN coding within source. 


programs being converted. some current 
FORTRAN II compilers permit only subpro- 
grams to be written in a non-FORTRAN lan- 
guage while other current compilers permit 
individual non-FORTRAN instructions to be 
inserted among FORTRAN statements. 


All non-FORTRAN statements are listed in 
the source program listing. A message 
appears with a Single, non-FORTRAN state- 
ment or with the first in a series of 
non-FORTRAN statements to indicate that the 
Statements must be converted by hand. 


The user can specify in a control card 
that the non-FORTRAN statements are to _ be 
punched. If punching of these statements 
is specified, cards containing non-FORTRAN 
Statements are separated from converted 
FORTRAN cards. 


CONTINUATION CARDS: A converted FORTRAN 
Statement may be longer than the original 
statement. If necessary, the FORTRAN LCP 
generates continuation cards to complete 
the statement. 


System/360 FORTRAN permits a maximum of 
19 continuation cards. If a converted 


source statement requires more than 19 
continuation cards, the FORTRAN LCP com- 
pletes conversion of the statement but 
issues a warning message in the output 
listing. 


BLANKS WITHIN WORDS: Some current FORTRAN 


II compilers permit embedded blanks within 


FORTRAN key words (such as READ, WRITE, 
COMMON, GO TO, etc.) and within names 
(such aS variable names, arrays names, 


Subprogram names, etc.). 
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CONDENSING OF OUTPUT STATEMENTS: 


The requirements differ for the three 
levels of System/360 FORTRAN, as follows: 


Basic Support and Level E: Embedded 


blanks are not permitted. 


Level H: Embedded blanks are permitted. 


When converting to any level of 
System/360 FORTRAN, the FORTRAN LCP removes 
embedded blanks from FORTRAN key words’ and 
from names that appear in the program. No 
messageS are generated. 


Original: 
TO TAL=AtB 
Converted: 


TOTAL=A+tB 


The FOR- 
TRAN LCP removes extraneous blanks from all 
FORTRAN statements in the converted output 
program. (Note, however, that blanks are 
not removed from the literal portion of an 
H-code specification.) 


In condensing the statements, the LCP 


follows the following conventions: 


e One blank follows 
word. 

e If the key word that begins a statement 
starts later than column 7, the _ key 
word is moved to column 7. 

e Blanks following a delimiter are 
removed. The delimiters are: 

te FS) gg oe 

e A blank appears before a delimiter only 
when the delimiter follows a FORTRAN 
key word. 

e Column 73 is also a delimiter. Blanks 
are inserted so that a name or constant 
is never split between the end of one 
coding line and the beginning of the 
next continuation line. 


each FORTRAN’ key 


One exception to these rules is the DO 
Statement in which a blank appears follow- 
ing the statement number that specifies the 
last statement in the range of the DO loop. 
The b in the following DO statement shows 


the location of that blank: 
DO 22bI=1,9,2 


The FORTRAN LCP does not generate messa- 
ges when statements are merely condensed by 
removing extraneous blanks. The following 
example illustrates the condensing of a 
statement. 


Original: 


ROOT1 = (-B + SORT ((B * B) — 4.0 # 


A * C)) 7 ( 2.0 * A) 
Converted: 


ROOT 1= (-B+ SORT ( (B*B) -4.0#A*C) ) / (2. 0*A) 


Elements of the Language 


REAL CONSTANTS: Some current FORTRAN II 
compilers allow a sSingle-precision real 
constant to contain more than seven decimal 
digits. 


In System/360 FORTRAN, a Single- 
precision real constant is limited to seven 
decimal digits. 


When a sSingle-precision real constant 
contains more than seven Significant 
digits, the FORTRAN LCP adds a decimal 


exponent of EO, but does not truncate the 


constant. A mesSage in the output listing 
indicates that the statement has been 
converted. 


Original: 

X = 1234567891. 
Converted: 
X=1234567891.E0 


Addition of the exponent notation of . EO 
ensures that the System/360 FORTRAN compil- 
er will compile the constant as a single- 
precision constant (the E overrides’ the 
number of digits). The System/360 compiler 
retains the magnitude of the constant. 
However, the System/360 compiler modifies 
the constant if the number of digits 
exceeds the precision that can be contained 
in one System/360 machine word. 


EXPONENT NOTATION: Some current FORTRAN II 
compilers allow the digit 0 to be omitted 
from decimal exponent notation. 


System/360 FORTRAN requires that the 
zero be included when the exponent is zero. 


adds a0 to the E or 
D-exponent notation when the zero is 
absent. A message in the output listing 
indicates that the statement has been con- 
verted. 


The FORTRAN LCP 


Original: 


D Y= 2.4E 
X = 2.4E 
Converted: 


DOUBLE PRECISION Y 
Y=2 .4D0 
X=2 .4E0 


VARIABLE NAMES: The FORTRAN LCP replaces 
any variable name that is the same as (1) a 
System/360 FORTRAN reserved word, (2) a 
System/360 FORTRAN function name, or (3) an 
LCP substitution name. The conflicting 
variable name is replaced by an insert 
variable created by the FORTRAN LCP. 


The form of an insert variable is as 

follows: 
LCPxxx (for replacing integer variables) 
FCPxxx (for replacing real variables) 


The xxx portion represents three digits 
varying from 000 through 999. The first 
insert variable of either form contains 000 
and the number is increased by 1 for each 
additional variable of that form. 


Note: In the coding examples in this 
Section, the names LCP000 and FCPO00O are 
used aS insert variables for integer varia- 
bles and real variables, respectively. 


Arithmetic Expressions 


HIERARCHY OF ARITHMETIC OPERATIONS: The 
order in which arithmetic operations are 
executed is important when computing inte- 
ger values. 


All current FORTRAN II compilers specify 
that operations proceed from left to right 
in an established order of precedence. 
However, there are Slight variations in the 
manner in which a series of non- 
parenthesized operations is implemented. 

In System/360 FORTRAN, arithmetic 
operations at the same hierarchy (except 
exponentiation) are performed on a strict 
left to right basis when parentheses are 
not included to control the order of compu- 
tation. 


The FORTRAN LCP assumes that parentheses 
were used in arithmetic expressions when 
the order of computation was important. If 
the parentheses were omitted, the user must 
insert them by hand. The FORTRAN LCP does 
not attempt to provide parentheses and does 
not generate messages to indicate they are 
lacking. 
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Control Statements 


ASSIGN STATEMENT: (Not Applicable to 1401 
FORTRAN, 1620 GOTRAN, 1620 FORTRAN With 
FORMAT, Or 1620 FORTRAN II) This statement 
is not provided in System/360 Basic Support 
or Level E FORTRAN. 


The FORTRAN LCP issues a message when it 
encounters this statement in any source 
program being converted to BaSic Support or 
Level E FORTRAN. The statement must _ be 
converted by hand. 


The ASSIGN 
Level H FORTRAN. 


statement is accepted by 


ASSIGNED GO TO STATEMENT: (Not Applicable 
to 1401 FORTRAN, 1620 GOTRAN, 1620 FORTRAN 
With FORMAT, or 1620 FORTRAN I[I) This 
statement is not provided in System/360 
Basic Support or Level E FORTRAN. 


The FORTRAN LCP issues a message when it 
encounters this statement in any program 
being converted to Basic Support or Level E 
FORTRAN. 


The Assigned GO TO statement is accepted 
by Level H FORTRAN. 


DO STATEMENT: some current FORTRAN II 
compilers permit transfers into the range 
of a DO loop. The restrictions on such 
transfers vary among the compilers. 


SyStem/360 FORTRAN allows transfer into 


the range of a DO loop under only one 
condition. If a transfer was made out of 
the range of the innermost DO loop ina 


nest of DOs, transfer can be made back into 
that innermost DO providing none of the 
indexing parameters have been changed by 
Statements outside the range of the DO. 


If the source program contains a_ trans- 
fer into a DO loop under any condition 
except that cited above, the user is 
responsible for changing the program. The 
FORTRAN LCP does not generate a message 
when the source program contains an illegal 
transfer into a DO loop. 


MACHINE INDICATOR STATEMENTS: (Not Appli- 
cable to 1620 GOTRAN) All current FORTRAN 
II compilers except 1620 GOTRAN contain 
statements that set or test machine indica- 
tors such as sense lights, overflow indica- 
tors, and divide-check indicators. 


System/360 FORTRAN provides subroutine 
subprograms that simulate these tests. 
These subroutines are referred to by using 
CALL statements. 


The FORTRAN LCP converts an instruction 


24 


to turn a sense light on or off into a CALL 
SLITE (i) statement. 


Original: 
100 SENSE LIGHT 3 
Converted: 
100 CALL SLITE (3) 


A source program statement that tests a 
sense light or indicator is converted to a 
CALL statement followed by a computed GO TO 
Statement. Insert variables are generated 
to provide a location to which the subrou- 
tine can return a value to reflect the 
status of the indicator. 


Original: 


110 IF (SENSE LIGHT 2) 111,112 

120 IF DIVIDE CHECK 121,122 

130 IF ACCUMULATOR OVERFLOW 131, 132 
140 IF QUOTIENT OVERFLOW 141,142 


Converted: 


110 CALL SLITET (2, LCP000) 
GO TO (111,112) ,LCP000 
120 CALL DVCHK (LCP000) 
GO TO (121,122) ,LCP000 
130 CALL OVERFL (LCP000) 
GO TO (131,132, 132) ,LCP000 
140 CALL OVERFL (LCP000) 
GO TO (141,142,142) ,LCP000 


Note that a third statement number is 
generated in the GO TO statements’ related 
to the accumulator overflow and quotient 
overflow tests. In System/360 FORTRAN, 
this is the statement to which transfer is 
made if an underflow condition is detected. 
Statements were not available in FORTRAN II 
to test underflow conditions. The second 
statement number in these GO TO statements 
is the statement to which transfer is made 
if no overflow has occurred. By duplica- 
ting the no-overflow address, the FORTRAN 


LCP will cause underflow conditions to be 
ignored. If the user desires corrective 
action to be taken for underflow 


conditions, he must change the third state- 
ment number and provide an appropriate 
correction routine. 


In all cases illustrated above, the 
FORTRAN LCP generates messages to indicate 
the statements have been converted. 


System/360 FORTRAN has no equivalent for 
a sense-Sswitch statement. Thus, a state- 
ment such as: 

IF (SENSE SWITCH 5) 121,122 


cannot be translated into a meaningful 
System/360 FORTRAN statement. Whenever a 


Table 1. 


Format of 
FORTRAN II Statement 


summary Of Conversion Actions for Input/Output Statements 


Format After LCP Conversion to: 


Basic Support FORTRAN Level E FORTRAN Level H FORTRAN 


Ul \CH n, list | WRI TE (2, n)list WRITE (2,n)list this FORT an N aI statement : 
° | ° : | 


READ INPUT TAPE i, n, list 


READ TAPE i, list | READ (i)list READ (i)list READ (i)list 


WRITE (3, n)list 


TYPE n, list | 


WRITE (3,n)list PRINT n, list 


WRITE OUTPUT TAPE i, n, list | WRITE (i,n)list WRITE (i, n)list WRITE (i, n)list 
WRITE TAPE i, list | WRITE (i)list WRITE (i)list WRITE (i)list 


Symbols: 


i =a logical unit number in FORTRAN II and a data set reference number in 


System/360 FORTRAN. 
N =q statement number of a FORMAT statement, 


list =a list of variables to which data is to be read or from which data is to be written. 


1,2,3 =data set reference numbers. 


Note that data set reference numbers are inserted by the LCP during conversion of the 


PRINT, PUNCH, READ n, and TYPE statements. 


sense Switch statement is encountered in a 
source program, the FORTRAN LCP generates a 
message to indicate that the statement must 
be changed by hand. 


Input/Output Statements 


Table 1 summarizes LCP conversion 
actions for input/output statements that 
are available in all or most FORTRAN II 
compilers. The manner in which each FOR- 
TRAN II statement is converted is discussed 
in detail in the paragraphs that follow. 
For discussions of input/output statements 
that do not appear in the table, the reader 
should refer to the conversion action list 
that contains items that apply specifically 
to the compiler in which he is interested. 


DATA SET REFERENCE CONVENTIONS: 


Operating 
System/360 and Basic Programming Support 
programs contain conventions pertaining to 
standard input and output units. 


Under these conventions, the following 
data set reference numbers are associated 
with the indicated system units: 


Data Set 
Reference Number Associated Unit 
1 system input unit 
2 System output unit 
(Punch output) 
3 system output unit 


(Print output) 
The unit assignments to specific data 


set reference numbers can be modified 
through the use of control cards. 
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A source program submitted to the FOR- 
TRAN LCP may already contain READ and WRITE 
statements that refer to logical units 1, 
2, and 3. In the converted program, these 
become references to data sets 1, 2, and 3, 
respectively. 

In addition, during conversion of cer- 
tain incompatible input/output statements 
(Such aS PRINT, PUNCH, and TYPE), the 
FORTRAN LCP creates new input/output state- 
ments that also contain references to the 
data sets 1, 2, and 3. 


Thus, conversion may produce situations 
in which input/output statements that 
referred to different units in a FORTRAN II 
program will refer to the same unit in the 
converted program. 


If the user anticipates this problem, he 
can use the replace tape reference option 
to change tape references in READ and WRITE 
statements, or he can check hisS converted 
program and change any data set references 
that are in conflict. 


PRINT STATEMENT: The following FORTRAN II 
format of the PRINT statement is not pro- 
vided in System/360 Basic Support or Level 
E FORTRAN: 


PRINT n, list 
where n is the number of a FORMAT statement 


and list is a list of variables from which 
the data is to be printed. 


When converting to Basic Support or 
Level E FORTRAN, the FORTRAN LCP converts a 
PRINT statement into a WRITE statement. 
The number 3 is inserted as the data _ set 
reference number. A message in the output 
listing indicates the statement has been 
converted. 


Original: 
PRINT 10, A 
Converted: 


WRITE (3,10)A 

The format of the PRINT statement shown 
above is valid in System/360 LEVEL H FOR- 
TRAN and is not modified during conversion 
to that level. Ona System/360, the com- 
piled PRINT statement causes output to be 
written in the data set associated with 
system output. 


PUNCH STATEMENT: The following FORTRAN II 
format of the PUNCH statement iS not pro- 
vided in System/360 Basic Support for Level 
E FORTRAN: 


PUNCH n, list 
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READ STATEMENT: 


where n is the number of a FORMAT statement 
and list is a list of variables from which 
the data is to be punched. 


When converting to Basic Support or 
Level E FORTRAN, the FORTRAN LCP converts a 
PUNCH statement into a WRITE statement. 
The number 2 is inserted as the data _ set 
reference number. A message in the output 
listing indicates the statement has _ been 
converted. 


Original: 
PUNCH 10, A 
Converted: 


WRITE (2,10)A 

The format of the PUNCH statement shown 
above is valid in System/360 Level H FOR- 
TRAN and is not modified during conversion 
to that level. On a System/360, the com- 
piled PUNCH statement causes output to be 
written in the data set associated with 
system output. 


Current FORTRAN II compil- 
ers permit use of the following form of the 
READ statement when input is to be read 
from the card reader: 


READ n, list 
where n is the number of a FORMAT statement 
and list is a list of varibles into which 
the input data is to be read. 


System/360 Basic Support and Level E 
FORTRAN do not recognize the above form of 


the READ statement. When converting to 
either of these levels, the FORTRAN LCP 
changes the format of the statement and 


inserts the number 1 as the data _ set 
reference number. A message in the output 
listing indicates that the statement has 
been converted. 


Original: 
READ 10, A 
Converted: 
READ (1,10)A 


System/360 Level H FORTRAN accepts a 
READ statement in the form READ n, list. 
On a System/360, the compiled statement 
causes input to be read from the data _ set 
associated with system input. 


READ INPUT TAPE STATEMENT: (Not Applicable 
to 1620 GOTRAN, 1620 FORTRAN With FORMAT, 
or 1620 FORTRAN II) This statement is used 
in current FORTRAN II to read data that was 


recorded on magnetic tape in external nota- 
tion. The format of the statement is: 

READ INPUT TAPE i, n, 1ist 
where i designates the tape unit, n is the 
number of a FORMAT statement, and list isa 
list of variables into which the data is to 
be read. 


This form of the READ statement is 
provided in System/360 FORTRAN. 


not 


The FORTRAN LCP converts a READ INPUT 
TAPE statement into the following form 
which is accepted by System/360 FORTRAN: 


READ (i,n) list 
Note that in this form, i represents a 
data set reference number instead of desig- 
nating a tape unit. A message in the 
output listing indicates that the statement 
has been converted. 


Original: 


READ INPUT TAPE 7, 100, A, B, C 


Converted: 
READ (7,100)A,B,C 


READ TAPE STATEMENT: (Not Applicable to 
1620 GOTRAN, 1620 FORTRAN With FORMAT, or 
1620 FORTRAN II) This statement is used in 
current FORTRAN II to read data that was 
recorded on magnetic tape in internal nota- 
tion. The format of the statement is: 


READ TAPE i, list 
where i 


is a list of variables into which the 
is to be read. 


deSignates the tape unit and list 
data 


In System/360 FORTRAN, the format of 
this statement has been changed to: 


READ (i) list 


Note that in this form, i represents a 
data set reference number instead of desig- 
nating a tape unit. 


The 
statement 
format. 
indicates 
verted. 


FORTRAN LCP convertS a READ TAPE 
into the proper System/360 

A message in the output listing 
that the statement has been con- 


Original: 
READ TAPE 4, D, E, F 
Converted: 


READ (4)D,E,F 


WRITE OUTPUT TAPE STATEMENT: 


Data files written in internal notation 
will require conversion before records in 
those files can be processed on System/360. 
Information on data file conversion will be 
provided at a later time. 


TYPE STATEMENT: (Not Applicable to 1401 
FORTRAN, 1620 GOTRAN, 705 FORTRAN, or 
7090/7094 FORTRAN II) The TYPE statement is 
used in current FORTRAN II to write output 
on the console typewriter. The format of 
the statement is: 
TYPE n, list 

where n is the number of a FORMAT statement 
and list is a list of variables from which 
the data is to be typed. 


This statement is 
System/360 FORTRAN. 


not provided in 


When converting to System/360 Basic Sup- 
port or Level E FORTRAN, the FORTRAN LCP 
converts a TYPE statement into a WRITE 
Statement. The number 3 is inserted as the 
data set reference number. 


Original: 

TYPE 10, X, Y, Z 
Converted: 

WRITE (3,10) X,Y,Z 

When converting to Level H FORTRAN, the 


FORTRAN LCP converts the TYPE statement 
into a PRINT statement. 


Original: 

TYPE 10, X, Y, Z 

Converted: 

PRINT 10,X,Y,2Z 

In all cases, a message in the output 
listing indicates that the statement has 


been changed. 


(Not Applica- 


ble to 1620 GOTRAN, 1620 FORTRAN With 
FORMAT, or 1620 FORTRAN II) This statement 
is used in current FORTRAN II to write data 
on magnetic tape in external notation. The 
format of the statement is: 

WRITE OUTPUT TAPE i, n, list 
where i deSignates the tape unit, n is the 


number of a FORMAT statement, and list is a 
list of variables from which the data is to 
be written. 


This form of the WRITE statement is not 
provided in System/360 FORTRAN. 
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The FORTRAN LCP converts a WRITE OUTPUT 
TAPE statement into the following form 
which is accepted by System/360 FORTRAN: 

WRITE (i,n) list 

Note that in this form, i represents a 
data set reference number instead of desig- 
nating a tape unit. A message in the 
output listing indicates that the statement 
has been converted. 


Original: 


WRITE OUTPUT TAPE 5, 100, A, B, C 


Converted: 


WRITE (5,100) A,B,C 

WRITE TAPE STATEMENT: (Not Applicable to 
1620 GOTRAN, 1620 FORTRAN With FORMAT, or 
1620 FORTRAN II) This statement is used in 
current FORTRAN II to write data on tape in 
internal notation. The format of the 
statement is: 


WRITE TAPE i, list 
where i 


is a list of variables from which the 
is to be written. 


designates the tape unit and list 
data 


In System/360 FORTRAN, the format of 
this statement has been changed to: 

WRITE (i) list 

Note that in this form i represents a 
data set reference number instead of desig- 
nating a tape unit. 

The FORTRAN LCP converts a WRITE TAPE 
statement into the proper System/360 
format. A message in the output listing 
indicates that the statement has been con- 
verted. 


Original: 
WRITE TAPE 6, D, E, F 
Converted: 


WRITE (6)D,E,F 

INPUT AND OUTPUT OF ARRAYS: 
ble to 1620 GOTRAN or 1620 FORTRAN With 
FORMAT) In a current FORTRAN II program, 
the name of an array can appear in an 
input/output statement before the array is 
defined in a DIMENSION statement. 


(Not Applica- 


When the array name is used in an 
input/output statement before it appears in 
a DIMENSION statement, only the first ele- 
ment in the array is read or written. When 
the DIMENSION statement precedes use of the 


28 


REPLACING TAPE REFERENCES: 


array name in an input/output statement, 
the entire array is read or written. 


The FORTRAN LCP reorders the sequence of 
statements in the source program so_ that 
all specification statements (except FORMAT 
statements) appear before the first execut-— 


able statement of the program. Thus, all 
DIMENSION statements are moved to the 
beginning of the program. 

This change | may produce a coding 


sequence that specifies input or output of 
an entire array when only the first element 
is desired. 


In reordering the Specification state- 
ments, the FORTRAN LCP does not check to 
determine whether the reordering will 
affect input/output references to arrays. 
The user must check the converted output to 
determine whether any hand coding changes 
are required. 


(Not Applicable 
to 1620 GOTRAN, 1620 FORTRAN With FORMAT, 
or 1620 FORTRAN II) The FORTRAN LCP pro- 
vides a control-card option that enables 
the user to replace a tape constant with a 
variable name or another tape constant. 
The tape constant is replaced wherever it 
appears in an input/output statement. 


To specify replacement, 
stant that appears in the source program 
and the variable or constant that is to 
replace it are entered ina control card. 
Any variable name to be used as a tape 
reference must begin with one of the _ let- 
ters I through N. 


the tape con- 


The following paragraphs indicate the 
manner in which replacement with a variable 
name is implemented. In the examples, the 
user has specified that each reference to 
Tape 6 is to be replaced by the variable 
IOUT. 


When converting to Basic Support or 
Level E FORTRAN, the input/output state- 
ments associated with the tape unit are 
modified and an arithmetic statement is 
constructed to assign the proper value to 
the variable name. The arithmetic state- 
ment will precede the first executable 
statement from the source program. 


Original: 
WRITE OUTPUT TAPE 6, 120, J, K, L 
Converted: 


LOUT=6 


WRITE (LOUT,120) J,K,L 


When converting to System/360 Level 4H 
FORTRAN, replacement iS implemented by 
modifying each input/output statement asso- 
ciated with Tape 6 and by creating a DATA 
Statement to assign the proper value to the 
variable name. 


Original: 


WRITE OUTPUT TAPE 6, 120, G, H, I 


Converted: 


DATA ICUT /6/ 


WRITE (ILOUT,120) G,H,I 
Messages in the output listing indicate 


that the statements have been converted. 


Details on specifying replacement of 
tape references are provided in the section 
"Control Cards and Operating Procedures." 


FORMAT Statements 


A-CONVERS ION: (Not Applicable to 1620 
GOTRAN or 1620 FORTRAN With FORMAT) FORMAT 
statements containing A-conversion may pro- 


duce undesirable results in System/360 if 
the A-conversion specifications are left 
unchanged. 


In current FORTRAN II, the basic field 
length (that is, the amount of core storage 
to be provided for a certain type of 
variable) is either specified by the pro- 
grammer, pre-established by the compiler, 
or determined by the fixed word-length of 
the computer. 


In System/360 FORTRAN, a length specifi- 
cation (either implicit or explicit) deter- 
mines the amount of core storage reserved 
for each type of variable. 


If the basic field length for a variable 
in current FORTRAN II differs from the 
length specification for that type of vari- 
able in System/360 FORTRAN, the field may 
be either too large or too small for the 
number of characters to be read or written 
using A-conversion specifications. 


If the w in the specification  nAw 
exceeds the System/360 length 
Specification, characters will be lost when 
the data is read. If the w is less’ than 
the System/360 length specification, unde- 
sired blanks may be created. 


Because A-conversion Specifications are 
closely related to data format, the FORTRAN 


LCP does not attempt to convert such speci- 
fications. However, when the FORTRAN LCP 
encounters an A-conversion specification in 
the source program, it generates a message 
to indicate that the statement should be 
reviewed and hand changes made where neces- 
sary. 


CARRIAGE CONTROL CHARACTERS: (Not Applica- 
ble to 1620 GOTRAN or 1620 FORTRAN II) 
System/360 FORTRAN does not permit use of 
the characters 2 through 9 or J through R 
to control the printer carriage. However, 
it does permit use of the following charac- 
ters: 


Carriage Advance 


Character Before Printing 
Blank Advance one line. 
0 Advance two lines. 
1 First line of next page. 
+ No advance. 
The FORTRAN LCP does not check the 


validity of carriage control characters in 
source-program Statements. The user must 
check his converted program to ensure that 
the proper carriage control characterS are 
Specified. 


READING FORMAT SPECIFICATIONS: System/360 
Basic Support and Level E FORTRAN do _ not 
permit FORMAT specifications to be read 
into storage during execution of the FOR- 
TRAN program. 


When converting to Basic 
Level E FORTRAN, the FORTRAN LCP issSueS a 
warning message whenever it encounters an 
input/output statement in which a variable 
appears in the position that normally con- 
tains a FORMAT statement number. A _ varia- 
ble in thiS position indicates that the 
input/output statement utilizes object-time 
FORMAT information. 


Support or 


Object-time reading of FORMAT informa- 
tion is allowed in System/360 Level H 
FORTRAN. 


Specification Statements 


ORDER OF SPECIFICATION 
System/360 Basic 


STATEMENTS: 
Support and Level E FOR- 


TRAN require that Specification statements 
(COMMON, DIMENSION, EQUIVALENCE, and Type 
statements) precede the first executable 


statement in the program. 


To meet this requirement, the FORTRAN 
LCP reorders statements so that specifi- 
cation statements precede the first execut- 
able statement in the program. 
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In addition, Basic Support and Level E 
FORTRAN require that the dimension of an 
array be provided the first time the array 
name is used in the source program. The 
FORTRAN LCP provides dimension information 


for an array in the first specification 
Statement (Type, DIMENSION, or COMMON 
statement) in which the array name appears 


in the converted program. 


Messages are provided in the output 
listing. 
Functions and Subprograns 
TERMINAL F IN FUNCTION NAMES: System/360 


FORTRAN does not require that the name of a 
function end with an F. 


The FORTRAN LCP removes the terminal F 
from each library, built-in, and arithmetic 
statement function name encountered in a 
source program. This eliminates the possi- 
bility of a seven-character name and also 
makes the function name in the source 
program match the name as it appears in the 
user's library. A message in the output 


listing indicates the statement has been 
modified. 
In the following conversion example, 


SINF is the name of an IBM-provided library 


function and ADFUNCF is the name of a 
user-written function. 
Original: 
X = Y + SINF (A) * ADFUNCF (Z**2) 
Converted: 
X=Y+SIN (A) *ADFUNC (Z**2) 
CONFLICTING FUNCTION AND SUBPROGRAM NAMES: 


The FORTRAN LCP detects any user-created 
function or subprogram name that is the 
same aS a System/360 function name and 


replaces it with an LCP substitution name. 
(See the information under the heading 
"Function-Name Conflicts" in the section 


"General Problems in 
System/360 FORTRAN.") 


Converting to 


Whenever the FORTRAN LCP replaces a 
function or subprogram name, it generates a 
message to indicate that the statement has 
been converted. 


Original: 
CALL AIMAG (A,B) 
Converted: 


CALL FCO1P (A,B) 
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TYPE STATEMENTS FOR FUNCTION NAMES: 


Note: 


Because the names of IBM-provided func- 
tions are different in System/360 FORTRAN 
from the names used for the same functions 
in FORTRAN II, the FORTRAN LCP replaces a 
FORTRAN II function name with the proper 
System/360 name. A message in the output 
listing indicates the name has been 
replaced. 


Original: 

X = Y + LOGF (2Z) 
Converted: 
X=Y+tALOG (Z) 


(Not 
applicable to 1620 GOTRAN, 1620 FORTRAN II, 
and 7080 FORTRAN) The initial-letter con- 
ventions for establishing the type (integer 
or real) for user-created built-in, 
library, and arithmetic statment functions 
have been changed in System/360 FORTRAN. 


Current FORTRAN II compilers deSignate X 
as the only initial character that can be 
used to establish that a function iS an 
integer function (I through N indicate real 
functions). In System/360 FORTRAN, the 
initial characters I through N imply that 


the function is an integer function; all 
other initial letters (including xX) imply 
the function is real. (Note that 


System/360 FORTRAN provides implicit and 
explicit specification statements that may 
be used to override the initial-letter 
conventions in establishing the type of a 
function.) 


As indicated earlier, the FORTRAN LCP 
removes the terminal F from all uSser- 
created function names. In addition, the 
LCP creates an explicit type statement for 
user-created function names that Start with 
an xX, or with I through N. The explicit 
statement establishes the function as 
integer or real, respectively. 


Original: 


J = XTRAF (A,B) 
Y = INTGRF (C) 
Converted: 


INTEGER XTRA 
REAL INTGR 
=XTRA (A,B) 
Y=INTGR (C) 


The rules for naming arithmetic 
statement functions in 1620 FORTRAN II are 
the same as those in System/360 FORTRAN. 
Therefore, when converting from this lan- 
guage, the FORTRAN LCP does not generate an 
explicit type statement for arithmetic 
statement functions. The same is true for 


all functions in 7080 FORTRAN programs that 
are named according to FORTRAN IV rules. 


ARGUMENTS IN ARITHMETIC STATEMENT 
FUNCTIONS : (Not Applicable to 1401 
FORTRAN, 1620 GOTRAN, 1620 FORTRAN With 


FORMAT, 7070-SerieS BaSic FORTRAN, and 7070 
FOS FORTRAN) In current FORTRAN II compil- 


ers, there iS no specified limit on the 
number of variables that can appear as 
dummy arguments in an arithmetic statement 
function. 


In System/360 FORTRAN, a maximum of 15 
variables that appear in the expression of 
an arithmetic statement function can be 
used aS arguments of the function. 


The FORTRAN LCP issues a warning message 
when it encounters an arithmetic statement 
function in which more than 15 variables 
are used as dummy arguments. The statement 
must be converted by hand. 
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CONVERSION ACTIONS FOR THE 1401 FORTRAN II 
COMPILER 


This list contains converSion actions 
that apply specifically to the 1401 FORTRAN 
compiler. Items that apply to all current 
compilers, including the 1401 compiler, can 
be found in the list entitled “Conversion 
Actions for Current FORTRAN II Compilers." 


STATEMENTS CONTAINING VARIABLES WITH INSUF- 
FICIENT SUBSCRIPTS: In 1401 FORTRAN, a 
programmer can use a eSsingly-subscripted 
reference to a multiply-subscripted varia- 
ble. An example of this is: 


DIMENSION J (10, 10) ,K (5, 5) 


3 (1) =¥ (1) 


Such references are invalid in 
System/360 FORTRAN (except in EQUIVALENCE 
statements). 


When the FORTRAN LCP encountersS a 
Singly-subscripted reference in a 1401 FOR- 
TRAN program, it checks to determine wheth- 
er the value of the single subscript is 


greater than the value of the first sub- 
Script for the variable in the DIMENSION 
statement. 


If the single subscript is less than or 
equal to the first subscript in the DIMEN- 
SION statement, the FORTRAN LCP appends 
sufficient subscripts to make the number of 
Subscripts in the reference equal to the 
number of subscripts in the DIMENSION 
statement. Each appended subscript con- 
Sists of a 1. A message in the output 
listing indicates that the statement has 
been converted. 


Original: 


DIMENSION yY (3,3) 
X=Y (2) 


Converted: 


DIMENSION Y (3,3) 
X=Y (2, 1) 


However, if the single subscript exceeds 
the initial subscript in the DIMENSION 
Statement, the reference is left unchanged. 
A warning mesSage is issued to indicate 
that the statement must be changed by hand. 


For example, the 
left unchanged: 


following coding is 


DIMENSION Y (3,3) 
X=Y (8) 
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subscripts 


INDEX IN A DO STATEMENT: 


Subscripts are also appended to a non- 
subscripted reference to a dimensioned 
variable in an arithmetic or IF statement 
when the variable is used as an expression 
in that statement. Note, however, that 
are not appended to a nonsub- 
Scripted array name that is passed as an 
argument to a function or subprogram. Mes- 
sages in the output listing indicate the 
statements have been converted. 


Original: 


DIMENSION X (10,10), Y(10,10), 
EQUIVALENCE (X (3) , XX) 
X(I) = Y(1) * Z - SUBF(Y) 


Zz (10, 10) 


- COSF (Y¥ (3)) 
* SINF (Y**2) 


Converted: 


DIMENSION X (10, 10) ,¥ (10,10) ,Z (10, 10) 

EQUIVALENCE (X (3) , XX) 

X (I, 1) =¥ (I, 1) *Z (1, 1) ~SUB (Y) -COS (vy (3, 1)) 
*#SIN (Y (1,1) **2) 


Note that in the third line of converted 
coding, a subscript has not been appended 


to the nonsubscripted array name Y where it 


is passed as an argument to the function 
SUB. No subscript has been appended to 
that reference because the function needs 


only the starting location of the array. 


In 1401 FORTRAN, 
the index name in a DO statement can be the 
same as a dimensioned integer variable that 
appears in a statement outside the DO loop. 
The index name is the i in the following DO 
statement format: 


DO n i = M4, Ma, Ms 


The following illustrates this 


usage: 


coding 


DIMENSION J (10, 2) 


DO 10 J=5, 100, 5 
LL = J 
10 PRINT 35, LL 


END 


System/360 FORTRAN does not permit the 
index name in a DO statement to be the same 
aS a dimensioned variable that appears 
outside the DO loop. 


The FORTRAN LCP detects this violation 
and issues a message to indicate the state- 
ment must be changed by hand. 


CONVERSION ACTIONS FOR THE 1620 GOTRAN, 


1620 FORTRAN WITH FORMAT, AND 1620 FORTRAN 
II COMPILERS 


This list contains conversion items that 
apply specifically to 1620 GOTRAN, 1620 
FORTRAN With FORMAT, and 1620 FORTRAN II. 
Items that apply to all current compilers, 
including the 1620 compilers, can be found 
in the list entitled “Conversion Actions 
for Current FORTRAN II Compilers." 


An item that applies to only one of the 
1620 compilers is marked by the statement 
"1620 FOTRAN Only", "1620 FORTRAN With 
FORMAT Only", or “ 1620 FORTRAN II Only” at 
the beginning of the diScussion. 


Table 2. 


Statement 
Available in: 


N 


Format of 1620 


Oo 
GN 
Statements 


GOTRAN Only 
1620 FORTRA 
With Format 


1620 


MAT and 1620 FORTRAN II Only) In the 


‘Oo O Basic Support FORTRAN 


Input/Output Statements 


Table 2 summarizes LCP conversion 
actions for specialized input/output state- 
ments available in the 1620 GOTRAN and 
FORTRAN compilers. The manner in which 
each statement iS converted is discussed in 
detail in the paragraphs that follow. For 
discussions of other 1620 input/output 
statements, See “Input/Output Statements" 
in the section “Conversion Actions for 
Current FORTRAN II Compilers." 


ACCEPT STATEMENT: (1620 FORTRAN With FOR- 
1620 
FORTRAN compilers, the ACCEPT statement is 
used to accept input from the console 
typewriter. The format of this statement 


is: 


ACCEPT n, list 


Summary of Conversion Actions for Specialized 1620 Input/Output Statements 


Format After LCP Conversion to: 


Level E FORTRAN Level H FORTRAN 


ACCEPT n, list Paes READ (1,n)list READ (1,n)list READ n, list 


READ (1,n)list 


ACCEPT TAPE n, list | |x| x] 


READ (1,n)list READ n, list 


t x No meaningful No meaningful No meaningful 
PLOT (v,c) conversion possible conversion possible conversion possible 


WRITE (ivar)list 


PUNCH, list 


PUNCH TAPE n, list a 


WRITE (ivar)list 


READ, list xf [| READ (ivar)list 


Symbols: 
n =a statement number of a FORMAT statement. 


WRITE (ivar)list WRITE (ivar)list 


WRITE (ivar)list WRITE (ivar)list 


px | x | WRITE (2,n)list WRITE (2,n)list PUNCH n, list 


READ (ivar)list 


READ (ivar)list 


list =a list of variables to which data is to be read or from which data is to 


be written. 


ivar =an insert variable that represents a data set reference number. 


1,2 =data set reference numbers. 


Note: See Table | for conversion of: PRINT n, list 
PUNCH n, list 
TYPE n, list 
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where n is the number of a FORMAT statement 
and list is a list of variables containing 
the data to be typed. 


System/360 FORTRAN does not provide this 
statement. 


When converting to System/360 Basic Sup- 
port or Level E FORTRAN, the FORTRAN LCP 
converts an ACCEPT statement into a READ 
Statement that contains a data Set ref- 
erence number. The number 1 is inserted as 
the data set reference number. 


Original: 
ACCEPT 10,A, X 
Converted: 
READ (1,10)A,X 


When converting to System/360 Level 4H 
FORTRAN, the FORTRAN LCP converts the 
ACCEPT statement into a READ statement in 
which the input unit iS implied. The input 
will be read from the data set associated 
with system input. 


Original: 
ACCEPT 10, A, X 
Converted: 

READ 10,A,X 


In both cases, a message in the output 
listing indicates the statement has been 
converted. 


ACCEPT TAPE STATEMENT: (1620 FORTRAN With 
FORMAT and 1620 FORTRAN II Only) In _ the 
1620 FORTRAN compilers, the ACCEPT TAPE 
statement is used to read input from a 
paper tape reader. The format of this 
statement is: 


ACCEPT TAPE n, list 


where n is the number of a FORMAT statement 


and list is a list of variablés into which 
the data is to be read. 


System/360 FORTRAN does not provide this 
statement. 


When converting to System/360 Basic Sup- 
port or Level E FORTRAN, the FORTRAN LCP 
converts an ACCEPT TAPE statement into a 
READ statement that contains a data set 
reference number. The number 1 is inserted 
as the data set reference number. 


Original: 
ACCEPT TAPE 50, Q, R, S 
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PRINT STATEMENT: 


PUNCH STATEMENT: 


Converted: 

READ (1,50)9,R,S 

When converting to System/360 Level H 
FORTRAN, the FORTRAN LCP converts an ACCEPT 
TAPE statement to a READ statement in which 
the input unit is implied. The input will 


be read from the data set associated with 
system input. 


Original: 

ACCEPT TAPE 60, T, U, V 
Converted: 

READ 60,T,U,V 


In both cases, a message in the output 


listing indicates the statement has been 
converted. 
PLOT STATEMENT: (1620 GOTRAN Only) In 1620 


GOTRAN, the PLOT statement is used to plot 
curves on the console typewriter. There is 
no equivalent statement in System/360 FOR- 
TRAN. 


Whenever the FORTRAN LCP encounters this 
statement, it issues a message to indicate 
that the statement is invalid. 


(1620 GOTRAN Only) In 
1620 GOTRAN, the PRINT statement is used to 
type output data on the console typewriter. 
The format of the statement is: 


PRINT, list 


where list is a list of variables from 
which the data is to be transmitted. 


System/360 does not recognize this form 


of the PRINT statement. 


The FORTRAN LCP converts the statement 
to a WRITE statement and creates an insert 
variable to represent the data set ref- 
erence number. A message in the output 
listing indicates the statement has been 
converted. 


Original: 
PRINT, X, Y, 2Z 
Converted: 


WRITE (LCP000)X,Y,2Z 

(1620 GOTRAN Only) In 
1620 GOTRAN, the PUNCH statement is used to 
punch data into cards or paper tape. The 
form of the statement is: 


PUNCH, list 


where list is a list of variables from 


which the data is to be transmitted. 


System/360 FORTRAN does not recognize 
this form of the PUNCH statement. 


The FORTRAN LCP converts the statement 
to a WRITE statement and creates an insert 
variable to represent the data set ref- 
erence number. A message in the output 
listing indicates that the statement has 
been converted. 


Original: 
PUNCH, D, E, F 
Converted: 


WRITE (LCPO000)D,E,F 

PUNCH TAPE STATEMENT: (1620 FORTRAN With 
FORMAT and 1620 FORTRAN II Only) In the 
1620 FORTRAN compilers the PUNCH TAPE 
statement is used to punch output on paper 
tape. The format of this statement is: 


PUNCH TAPE n,. list 
where n is the number of a FORMAT statement 


and list is a 1ist of variables from which 
the data is to be punched. 


System/3600 FORTRAN does not provide this 
statement. 


When converting to System/360 Basic Sup- 
port or Level E FORTRAN, the FORTRAN LCP 
converts a PUNCH TAPE statement to a WRITE 
Statement that contains a data set ref- 
erence number. The number 2 is inserted as 
the data set reference number. 


Original: 
PUNCH TAPE 10, X, Y 
Converted: 


WRITE (2,10) X,Y 


READ STATEMENT: 


When converting to System/360 Level 4H 
FORTRAN, the FORTRAN LCP converts a PUNCH 
TAPE statement to a PUNCH statement in 
which the output unit is implied. The 
output iS written in the data set associat- 
ed with system output. 


Original: 
PUNCH TAPE 10, X, Y 
Converted: 


PUNCH 10,X,Y 


(1620 GOTRAN Only) In 1620 
GOTRAN, the READ statement is used to 
accept input from either punched cards, 
punched tape, or the console typewriter. 


The format of the statement is: 


READ, list 


where list is a list of variables into 
which the input data is to be read. 


System/360 FORTRAN does not recognize 
the above form of the READ statement. 


The FORTRAN LCP changes the form of the 
statement and creates an insert variable to 
represent the data set reference number. A 
message in the output listing indicates 
that the statement has been converted. 


Original: 
READ, A, B, C 
Converted: 


READ (LCP000) A,B,C 
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CONVERSION ACTIONS FOR THE 1410 FORTRAN II 
COMPILER 


This list contains conversion items that 


apply specifically to the 1410 FORTRAN II 
compiler. Other items that apply to _ the 
1410 compiler can be found in the list 


entitled “Conversion Actions for Current 


FORTRAN II Compilers." 


Elements of the Language 


ORDER OF ELEMENTS IN ARRAYS: In 1410 
FORTRAN, the elements in an array are 
stored in descending storage locations. 
(See Figure 1 in the section “Arrangement 


of Arrays in Storage.") This contrasts with 
System/360 FORTRAN in which the elements 
are stored in ascending locations. (Note 
that in both 1410 FORTRAN and System/360 
FORTRAN, the first subscript is varied most 
rapidly and the last subscript iS varied 
least rapidly.) 


No conversion is required because of the 
different ways in which the two compilers 
store arrayS. Both compilers supply the 
proper element when subscripts are used in 
FORTRAN statements. 


However, if the user has employed non- 
FORTRAN statements to manipulate individual 
elements in an array, the locations 
referred to in the non-FORTRAN statements 
may be incorrect. In recoding non-FORTRAN 
portions of his program, the user must be 
careful to refer to the elements of an 
array according to the locations in which 
they are stored by the System/360 FORTRAN 
compiler. 


The FORTRAN LCP does not analyze non- 
FORTRAN coding. Therefore, no warning 
message concerning this difference is 
issued. | 


COMMON-EQUIVALENCE INTERACTION PROBLEM: In 
1410 FORTRAN, EQUIVALENCE statements are 
given precedence over COMMON statements in 
determining the allocation of COMMON stor- 
age. 


This contrasts with System/360 FORTRAN 
in which variables and arrays are assigned 
to COMMON storage in the order in which 
they appear in COMMON statements. 


Because System/360 FORTRAN gives prece- 
dence to COMMON statements, the manner in 
which System/360 FORTRAN allocates COMMON 
Storage for a given set of COMMON and 
EQUIVALENCE statements may differ signifi- 
cantly from the manner in which COMMON 
Storage was allocated for those statements 
by the 1410 FORTRAN compiler. 
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FORTRAN. 


If the user specifies the reorder COMMON 
option, the FORTRAN LCP resolves this prob- 
lem by generating new COMMON statements 
that will cause the System/360 compiler to 
allocate storage in the same way it is 
assigned by the 1410 FORTRAN compiler. A 
message in the output listing indicates new 
COMMON statements have been generated. 


Further information on the COMMON— 
EQUIVALENCE interaction problem is provided 
in the section “General Problems in 
Converting to System/360 FORTRAN." 


Input/Output Statements 


The FORTRAN LCP 
1410 


DIRECT ACCESS STATEMENTS: 
does not convert any of the following 
FORTRAN direct access statements: 


DEFINE FILE Statement 
FIND Statement 

FETCH Statement 
RECORD Statement 


When the FORTRAN LCP encounters any of 
these statements in a source program, it 
issues a message to indicate that the 
statement must be changed by hand. 


Functions and Subprograms 


F CARDS: In 1410 FORTRAN, an F card is 
required when the name of a function sub- 
program or subroutine subprogram appears as 
an argument in a CALL statement. | 


are not used in System/360 
Instead, a function subprogram 
name or a Subroutine subprogram name that 
is used aS an argument in a CALL statement 
must appear in an EXTERNAL statement in the 
calling program. 


F cards 


The FORTRAN LCP generateS an EXTERNAL 
Statement for each F card encountered in 
the source program and places the EXTERNAL 
Statement among the specification state- 
ments at the beginning of the output pro- 
gram. A message in the output listing 
indicates the statement has been converted. 


Original: 
F SIN, COS, FUNC 
Converted: 


EXTERNAL SIN, COS, FUNC 


CONVERSION ACTION FOR THE 7070-SERIES AND 
7070 FOS FORTRAN COMPILERS 


This list contains conversion actions 
that apply specifically to the 7070-Series 
and 7070 FOS FORTRAN compilers. Other 
items that apply to the 7070-Series and 
7070 FOS FORTRAN compilers can be found in 
the list entitled “Conversion Actions for 
Current FORTRAN II Compilers." 


H-LITERAL IN AN ARITHMETIC STATEMENT: In 
the 7070 FORTRAN compilers, it is possible 
to use an H-literal on the right side of 
the equal Sign in an arithmetic statement. 
An example is: 


WORD = 4H END 


This usage is unacceptable in System/360 
Basic Support and Level E FORTRAN. When 
converting to either of these levels, the 
FORTRAN LCP issueS a mesSage to indicate 
the statement must be changed by hand. 


Level H FORTRAN does not accept an 
H-literal in an arithmetic statement. How- 
‘ever, this level does accept an H-literal 
in a DATA statement. 


When converting to Level H FORTRAN, the 
FORTRAN LCP replaces the H-literal with an 
insert variable and creates a DATA state- 


ment to establish the value of the insert 
variable. A warning message is issued to 
indicate that the user should check for 


incompatibilities between the size of the 
literal and the length specification for 
the variable to which the literal is equat- 
ed. 


Original: 
WORD = 4H END 
Converted: 


DATA FCP000/4H END/ 
WORD=FCP0 00 


COMMON- EQUIVALENCE INTERACTION PROBLEM: 
(Not Applicable to 7070-Series Basic 


FORTRAN) In 7070-Series Full FORTRAN and in 
7070 FOS FORTRAN, EQUIVALENCE statements 


OVERFLOW INDICATOR TEST STATEMENTS: 


are given precedence over COMMON statements 
in determining the allocation of COMMON 
storage. 


This contrasts to System/360 FORTRAN in 
which variables and arrays are assigned to 
COMMON storage in the order in which they 
appear in COMMON statements. 


Because System/360 gives precedence to 
COMMON statements, the manner in which 
System/360 FORTRAN allocates COMMON storage 
for a given set of COMMON and EQUIVALENCE 
Statements may differ Significantly from 
the manner in which COMMON storage is 
allocated for these statements by either 
7070 FORTRAN compiler. 


If the user specifies the reorder COMMON 
option, the FORTRAN LCP resolves this prob- 
lem by generating new COMMON statements 
that will cause the System/360 compiler to. 
allocate storage in the same way it was 
asSigned by the 7070 FORTRAN compiler. A 
message in the output listing indicates 
that new COMMON statements have been gener- 
ated. 


Further information on the COMMON- 
EQUIVALENCE interaction problem is provided 
in the section "General Problems in 
Converting to System/360 FORTRAN." 


In the 
7070 FORTRAN compilers, the IF ACCUMULATOR 
OVERFLOW and IF QUOTIENT OVERFLOW state- 
ments can be used to test integer and real 
operations. 


In System/360 FORTRAN, the subroutine 
Subprograms that simulate these tests apply 
only to real operations. 


Whenever either of these statements is 


encountered ina 7/7070 program, the FORTRAN 
LCP completes the conversion as indicated 
under the heading "Machine Indicator 
Statements" in the section “Conversion 


Actions for Current FORTRAN II Compilers." 
However, in the case of the 7070 program, 
the FORTRAN LCP issues a message with the 
generated CALL statement. The statement 
must be changed by hand if it is used to 
test an integer operation. 
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CONVERSION ACTIONS FOR THE 705 AND 7080 
FORTRAN COMPILERS 


This list contains conversion items that 
apply specifically to the 705 FORTRAN and 
7080 Processor FORTRAN compilers. Other 
items that apply to these compilers can be 
found in the list entitled “Conversion 
Actions for Current FORTRAN II Compilers." 


An item that applies to the 705 compiler 
or the 7080 compiler only is marked by the 
Statement "705 FORTRAN Only" or "7080 FOR- 
TRAN Only“ at the beginning of the discus- 
sion. 


Elements of the Language 


LENGTH OF VARIABLES: (705 FORTRAN Only) In 
705 FORTRAN, a variable name can contain as 
many as ten characters. 

System/360 FORTRAN limits a variable 
name to Six characters. 


During FORTRAN LCP conversion, any vari- 
able name in a 705 FORTRAN program that 
exceeds Six characters is truncated to six 
characters by removing characters from the 
right end of the name. A message in the 
output listing indicates the statement has 
been changed. 


Original: 

VARIABLE = A + CONSTANT 
Converted: 

VARIAB = A+CONSTA 


The FORTRAN LCP does not check to deter- 
mine whether a truncated variable name 
matches another name in the program. The 
user should check his converted program to 
ensure that truncation did not create name 
conflicts. 


ARRANGEMENT OF ARRAYS: In 705 and 7080 
FORTRAN, the elements in an array are 
stored so that elements in the same row are 
together; that is, the elements are stored 
by varying the last subscript most rapidly 
and varying the first subscript least 
rapidly. (See Figure 1 in the _ section 
"Arrangement of Arrays in Storage.") 


This contrasts with System/360 FORTRAN 
in which the elements in an array are 
stored by varying the first subscript most 
rapidly and the last subscript least rapid- 
ly. 
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(Note that 705 FORTRAN, 7080 FORTRAN, 
and System/360 FORTRAN all store the ele- 
ments in ascending storage locations.) 


No LCP conversion is required because of 
the different ways in which the compilers 
store arrays. The compilers supply the 
proper elements when subscripts are used in 
FORTRAN statements. 


However, if the user has employed non- 
FORTRAN statements to manipulate individual 
elements in an array, the locations 
referred to in the non-FORTRAN statements 
may be incorrect. 


In recoding the non-FORTRAN portions of 
his program, the user must be careful to 
refer to elements of an array according to 
the locations in which they are stored by 
the System/360 FORTRAN compiler. 


The FORTRAN LCP does not analyze  non- 
FORTRAN coding. Therefore, no warning 
messagé concerning this difference is 
issued. 


Control Statements 


NEGATIVE INDEXING PARAMETERS IN A DO STATE- 
MENT: (705 FORTRAN Only) In 705 FORTRAN, 
it is possible to use a negative value for 
the third indexing parameter. The third 
indexing parameter is m3 in the following 
DO statement form: 


Use of the negative parameter allowed the 
programmer to decrement the value i instead 
of incrementing it. 


System/360 requires that the value of 
all indexing parameters be positive. 


The FORTRAN LCP detects the use of a 
negative constant as the mz parameter. The 
parameter is left unchanged, but the LCP 
generates a mesSage to indicate that the 
statement must be changed by hand. 


When the mz parameter has been specified 
aS a variable, the user should check to 


ensure that the variable contains a posi- 
tive value each time the DO loop is 
entered. 


Input/Output Statements 


READ (0100) STATEMENT: (7080 FORTRAN Only) 
In 7080 FORTRAN, a programmer can refer to 


the card reader in a READ (i,n) list or 


Statement by designating 


READ (i) list 


0100, either aS a constant or a variable, 
as the input unit. For example, the fol- 
lowing statements would result in input 


from the card reader: 


J = 0100 
READ (J) A, B 
READ (0100,10)C, D 


This usage is unacceptable to System/360 
FORTRAN. 


The FORTRAN LCP does not recognize this 
incompatibility. The statements can be 
changed by using the replace tape reference 
option provided by the LCP. 


WRITE (0500) STATEMENT: (7080 FORTRAN 
Oniy) In 7080 FORTRAN, a programmer can 


refer to the console typewriter in a WRITE 
(i,m) list or WRITE (i) list statement by 
designating 0500, either as a constant or a 
variable, as the output unit. For example, 
the following statements would result in 
output to the console typewriter: 


I = 0500 
WRITE (I) W, X 
WRITE (0500,10) Y, Z 


This usage is unacceptable to System/360 
FORTRAN. 


The FORTRAN LCP does not recognize this 
incompatibility. The statements can be 


VARIABLE DIMENSIONS: 


changed by using the replace tape reference 
option provided by the LCP. 


Specification Statements 


(7080 FORTRAN Only) 
In 7080 FORTRAN, integer variables can be 
used in a DIMENSION statement to represent 
the dimensions of an array. For example, a 
programmer can specify an array as follows: 


DIMENSION A (J,K/1000) 


where 1000 specifies the maximum Size of 
the array. By uSing integer variables as 
Subscripts, the programmer can vary the 
dimensions of an array during execution of 
the program. 


System/360 FORTRAN allows integer varia- 
bles to be used as the dimensions of an 
array only when the DIMENSION statement is 
in a function subprogram or subroutine 
Subprogram, and the dimensions of the array 
appear aS arguments in a FUNCTION or  SUB- 
ROUTINE statement. 


When the FORTRAN LCP encounters a DIMEN- 
SION statement containing variable dimen- 
sions, it issues a message to indicate that 
the statement must be changed by hand. 
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CONVERSION ACTIONS FOR THE 7090/7094 
FORTRAN II COMPILER 


This list contains conversion items that 
apply specifically to the 7090/7094 FORTRAN 
II compiler. Other items that apply to the 
7090/7094 FORTRAN II compiler can be found 
in the list entitled "Conversion Actions 
for Current FORTRAN II Compilers." 


The organization of this action list 
varies somewhat from the organization of 
the preceding lists. 


Items that are not specifically related 
to double-precision or complex number oper- 
ations are discussed first. These items 
are arranged according to the type of 
statement to which they are related. These 
general items are followed by two separate 
groups of items: (1) a group of items 
related to double-precision operations, and 
(2) a group of items related to complex 
operations. 


Background information on the problems 
of double-precision and complex operations 
can be found in the section "General Prob- 
lems in Converting to System/360 FORTRAN." 


Elements of the Language 


ORDER OF ELEMENTS IN ARRAYS: In 7090/7094 
FORTRAN II, the elements in an array are 
stored in descending storage locations. 
(See Figure 1 in the section “Arrangement 
of Arrays in Storage.) 


This contrasts with System/360 FORTRAN 
in which the elements are stored in ascend- 
ing locations. 


(Note that in both 7090/7094 FORTRAN II 
and System/360 FORTRAN, the first subscript 
is varied most rapidly and the last sub- 
Script is varied least rapidly.) 


No conversion is required because of the 
different ways in which the two compilers 
store arrayS. Both compilers supply the 
proper element when subscripts are used in 
FORTRAN statements. 


However, if the user has employed non- 
FORTRAN statements to manipulate individual 
elements in an array, the locations 
referred to in the non-FORTRAN statements 
may be incorrect. 


In recoding non-FORTRAN portions of his 
program, the user must be careful to refer 
to the elements of an array according to 
the locations in which they are stored by 
the System/360 FORTRAN compiler. 
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' variable. 


No warning message concerning this dif- 


ference is issued by the FORTRAN LCP. 


Arithmetic and Logical Statements 


BOOLEAN STATEMENTS: Boolean statements in 
7090/7094 FORTRAN II cannot be converted 
because System/360 FORTRAN does not manipu- 
late Boolean functions. Instead, 
System/360 FORTRAN provides for use of 
logical variables and expressions. 


When the FORTRAN LCP encounters a Boo- 
lean statement, it generates a message to 
indicate that the statement must be changed 
by hand. 


H-LITERAL IN AN ARITHMETIC OR IF STATEMENT: 
In 7090/7094 FORTRAN II, it is possible to 
use an H-literal in an IF statement or on 
the right side of the equal sign in an 
arithmetic statement. An example is: 


WORD = 4H END 


This usage is unacceptable in System/360 
Basic Support and Level E FORTRAN. When 
converting to either of these levels, the 
FORTRAN LCP issues a message to indicate 
that the statement must be changed by hand. 


Level H FORTRAN accepts an H-literal in 
a DATA statement. 


When converting to Level H FORTRAN, the 
FORTRAN LCP replaces the H-literal with an 
insert variable and creates a DATA state- 
ment to establish the value of the insert 
A warning message is issued to 
indicate that the user should check for 
length incompatibilities. 


Original: 
WORD = 4H END 
Converted: 


DATA FCP000/4H END/ 
WORD=FCP000 


IMPLICIT MULTIPLICATION: In some cases, 
7090/7094 FORTRAN II performs multi- 
plication even though an asterisk has been 
omitted. 


System/360 FORTRAN does not implement 
implicit multiplication. All desired com- 
putations must be specified explicitly. 


The FORTRAN LCP inserts an asterisk into 
an expression at any point at which the 
asterisk is needed to make multiplication 
explicit. A message in the output listing 
indicates the statement has been converted. 


Original: 


X = (A + B) C + 3.D - 


(E+ F) (G + A) 


+ 2.E0X 
Converted: 


X= (A+B) *C+3.*D- (E+F) * (G+H) +2. EO*X 


STATEMENTS CONTAINING VARIABLES WITH INSUF- 
FICIENT SUBSCRIPTS: In 7090/7094 FORTRAN 
II, a programmer can use a Singly- 
subscripted reference to a - multiply- 
subscripted variable. An example of this 
is: 


DIMENSION J (10, 10) ,K (5, 5) 


3 (1) =¥ (1) 


references are invalid in 
(except in EQUIVALENCE 


Such 
System/360 FORTRAN 
Statements). 


the FORTRAN LCP encounters) an 
invalid singly-subscripted reference, it 
appends sufficient subscripts to make the 
number of subscripts in the reference equal 
to the dimensions of the array. Each 
appended subscript consists of a 1. 


When 


Subscripts are also added to a nonsub- 
scripted reference to a dimensioned varia- 
ble in an arithmetic, IF, or CALL statement 
when the variable is used aS an expression 
in that statement. Note, however, that 
subscripts are not appended when a nonsub- 
scripted array name is passed aS an argu- 
ment to a function or subprogram. Messages 
in the output listing indicate the state- 
ments have been converted. 


Original: 


DIMENSION X(10,10,5), ¥(10,10), 
EQUIVALENCE (X (3) ,XX) 
X(I) = Y(I) * Z-SUBF (Y) 


Z (10, 10) 


- COSF (Y (3)) * 
SINF (Y**2) 
CALL XYZ (X,Y (3) , Z**2) 


Converted: 


DIMENSION X (10, 10,5) ,¥ (10,10) ,Z2 (10,10) 
EQUIVALENCE (X (3) , XX) 
X (I, 1, 1) =¥ (I, 1) *Z (1, 1) -SUB (Y) 
-COS (Y (3, 1)) *SIN (Y (1, 1) **2) 

CALL XYZ (X,Y (3,1),2(1, 1) **2) 

Note that subscripts have not been 
appended to the nonsubscripted array name Y 
where it is passed aS an argument to the 


function SUB or to the nonsubscripted array 


name X where it is passed as an argument to 
subprogram XYZ. No subscripts have been 
appended because the function and subpro- 


gram need only the starting location of 
array Y and array X, respectively. 


Control Statements 


INDEX IN A DO STATEMENT: In 7090/7094 
FORTRAN, the index in a DO statement can be 
the same aS a dimensioned integer variable 
that appears ina statement outside the DO 
loop. The index is the i in the following 
DO statement format: 


DO n 1 = ™q, Moa, Ms 


The following coding illustrates this 


uSage: 


DIMENSION J (10,2) 


DO 10 J=5, 100, 5 
LL = J 
10 PRINT 35, LL 


END 


System/360 FORTRAN does 
variable to be used as the index in a DO 
statement if the variable appears asa 
dimensioned variable ina statement outside 
the DO loop. 


not permit a 


The FORTRAN LCP detects this violation 
and issueS a message to indicate that the 
DO statement must be changed by hand. 


END STATEMENT: In 7090/7094 FORTRAN II, 
the END statement can contain a series of 
program option parameters. These options 
are meaningless in System/360 FORTRAN. 


The FORTRAN LCP blanks out the paramet- 


ers and generates a message to indicate 
that the statement has been converted. 


Original: 
END (1,2,0,1,1) 
Converted: 


END 


Input/Output Statements 


READ DRUM STATEMENT: In 7090/7094 FORTRAN 
II, the READ DRUM statement is used to read 
binary information from a drum storage 
unit. The format of the statement is: 
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READ DRUM i, j, list 

where i designates the drum unit, j iS a 
drum address, and list is a 1ist of varia- 
bles into which the information is read. 


The FORTRAN LCP converts a READ DRUM 
statement to a READ statement. An insert 
variable is created to represent the data 
set reference number. During conversion of 
the statement, the FORTRAN LCP also deletes 
the drum address (}). A message in the 
output listing indicates the statement has 
been converted. 


Original: 


READ DRUM K, J, A, B, C, D(3) 


Converted: 
READ (LCP000) A,B,C,D (3) 


Data files written in internal notation 
will require conversion before records in 
those files can be processed on System/360. 
Information on data file conversion will be 
provided at a later time. 


RIT STATEMENT: In 7090/7094 FORTRAN II, it 
is possible to use an RIT statement in 
place of a READ INPUT TAPE statement. The 
RIT statement is converted in the _ same 
manner as the READ INPUT TAPE statement 
(see "Conversion Actions for Current FOR- 
TRAN II Compilers"). An example follows. 


Original: 


RIT INTAPE, 60, D, E, F 


Converted: 
READ (INTAPE, 60) D,E,F 


Note that in the converted form, INTAPE 
is an integer variable that represents’ the 
data set reference number. 


WRITE DRUM STATEMENT: In 7090/7094 FORTRAN 

II, the WRITE DRUM statement is used to 

write binary information on a drum storage 

unit. The format of the statement is: 
WRITE DRUM i, j, list 

where i designates the drum unit, j iS a 

drum address, and list is a list of varia- 


bles from which the information is to be 
written. 


The FORTRAN LCP converts a WRITE DRUM 
statement into a WRITE statement. An inte- 
ger insert variable is created to represent 


the data set reference number. During 
conversion of the statement, the FORTRAN 
LCP also deletes the drum address (j). A 
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message in the output listing indicates the 
statement has been converted. 


Original: 


WRITE DRUM 2, 1000, D, E, F, G (6) 


Converted: 


WRITE (LCP000) D,E,F,G (6) 


WOT STATEMENT: In 7090/7094 FORTRAN II, it 
is possible to use a WOT statement in place 
of a WRITE OUTPUT TAPE statement. The WOT 
Statement iS converted in the Same manner 
as the WRITE OUTPUT TAPE statement (See 
“Conversion Actions for Current FORTRAN II 
Compilers"). An example follows. 


Original: 

WOT NOUTTP, 70, R, L, B- 
Converted: 

WRITE (NOUTTP,70)R,L,B 

Note that in the converted form, NOUTTP 


is an integer variable that represents the 
data set reference number. 


OCTAL CONVERSION 
The 


IN A FORMAT STATEMENT: 
7090/7094 FORTRAN II permits octal 
conversion to be specified in a FORMAT 
statement. Octal conversion is not mean- 
ingful in System/360 FORTRAN and is not 
permitted. 


The FORTRAN LCP generateS a message 
whenever it encounters a FORMAT statement 
containing octal-conversion notation. The 
message is issued to indicate that the 
statement must be changed by hand. 


Specification Statements 


MULTIPLE APPEARANCE OF THE SAME VARIABLE IN 
A COMMON STATEMENT: In 7090/7094 FORTRAN 
II, the same variable can appear more than 
once in a COMMON statement. 


in System/360 FORTRAN, a COMMON sState- 
ment is invalid if the same variable 
appears in it twice. 


The FORTRAN LCP reconstructs the COMMON 
Statement and deletes the second and all 
subsequent references to the variable. A 
message in the output listing indicates 
that a new COMMON statement has been gener- 
ated. 


Original: 
COMMON A, B, C, A, D, E 
Converted: 


COMMON A,B,C,D,E, 


COMMON-EQUIVALENCE INTERACTION PROBLEM: In 


7090/7094 FORTRAN II, EQUIVALENCE state- 
ments are given precedence over COMMON 
Statements in determining the allocation of 
COMMON storage. 


This contrasts with System/360 FORTRAN 
in which variables and arrays are assigned 
to COMMON storage in the order in which 


they appear in COMMON statements. Conse- 
quently, the manner in which System/360 
FORTRAN allocates COMMON storage for a 


given set of COMMON and EQUIVALENCE state- 
ments may differ significantly from the 
manner in which COMMON storage was allocat- 
ed for those statements by the 7090/7094 
FORTRAN II compiler. 


If the user specifies the reorder COMMON 
option, the FORTRAN LCP resolves this prob- 
lem by generating new COMMON statements 
that will cause the System/360 compiler to 
allocate storage in the same way it is 
assigned by the 7090/7094 FORTRAN II com- 


piler. A message in the output listing 
indicates that new statements have been 
generated. 

Further information on the COMMON- 


EQUIVALENCE interaction problem is provided 
in the section “General Problems in 
Converting to System/360 FORTRAN." 


FREQUENCY STATEMENT: The FREQUENCY state- 
ment is used in 7090/7094 FORTRAN II pro- 
grams to optimize object coding. The 
statement indicates the estimated frequency 
with which specific control branches will 
be taken. 


The statement is 
System/360 FORTRAN. 


not provided in 


The FORTRAN LCP convertS a 
Statement into a comment card. 
in the output listing indicates the 
ment has been converted. | 


FREQUENCY 
A message 
State- 


Original: © 


FREQUENCY 30(1,2,1) ,40(11) ,50 
(1,7,1,1) 


Converted: 


Cc FREQUENCY 30(1,2,1) ,40(11) ,50 
(1,7,1,1) 


Functions and Subprograms 


F CARDS: In 7090/7094 FORTRAN, an F card 
is required when a library function name, 
function subprogram name, or a subroutine 
subprogram name iS uSed aS an argument to 
another function subprogram or subroutine 
subprogram. 


F cards are not used in System/360 
FORTRAN. Instead, a function or subprogram 
name that is used aS an argument to a 
function or subroutine subprogram must 
appear in an EXTERNAL statement in the 
calling program. (System/360 FORTRAN clas- 
Sifies an EXTERNAL statement as a specifi- 
cation statement. BaSic Support and Level 
E FORTRAN stipulate that EXTERNAL state- 
ments must appear prior to the first exe- 
cutable statement in a program.) 


The FORTRAN LCP generates an EXTERNAL 
statement for each F card encountered in 
the source program and places the EXTERNAL 
statement among the specification state- 


ments at the beginning of the output pro- 
gram. A message in the output listing 
indicates that EXTERNAL statements have 


been converted. 
Original: 
F SIN, COS, FUNC 
Converted: 


EXTERNAL SIN, COS, FUNC 


REPLACING ARGUMENTS IN ARITHMETIC STATEMENT 
FUNCTIONS: In 7090/7094 FORTRAN II, argu- 
ments that appear in arithmetic statement 
functions are dummy variables and may be 
the Same as names that appear elsewhere in 
the program. 


However, conflicts may arise when the 
FORTRAN LCP generates Type statements for 
double-precision and complex variables. 
Consider the following 7090/7094 FORTRAN II 
coding: 


D DIMENSION X (10,10) 
FIRSTF (X,1) =A + X#*#I 
The variable X in the DIMENSION statement 
is a double-precision variable. The argu- 


ment X in the arithmetic statement function 
is a single-precision dummy argument. This 
causes no problem in 7090/7094 FORTRAN II. 


However, during conversion, the FORTRAN 
LCP generates an explicit DOUBLE PRECISION 
Statement that establishes the variable X 
aS a double-precision variable throughout 
the program, even in its use as a dummy 
argument. 
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When a 7090/7094 program contains 
double-precision or compiex operations, the 
FORTRAN LCP replaces all dummy arguments in 
arithmetic statement functions with insert 
variables. A message in the output listing 
indicates the statement has been converted. 


Original: 
D DIMENSION X (10, 10) 
FIRSTF (X,I) = AtX**I 


Converted: 


DOUBLE PRECISION xX 

DIMENSION X (10, 10) 

FIRST (FCP000, LCP000) =A+FCP000 
#*LCP000 


DOUBLE-PRECISION OPERATIONS 


This list contains 
specifically to 
operations. 


items that apply 
double-precision 


System/360 BaSic Support FORTRAN does 
not permit use of double-precision varia- 
bles, arrays, or Statements. 


SPECIFYING DOUBLE-PRECISION VARIABLES AND 
ARITHMETIC STATEMENT FUNCTIONS: In 
7090/7094 FORTRAN, entire statementS are 
designated as double-precision by inserting 
the letter D in column 1. 


System/360 FORTRAN requires that varia- 
bles, arithmetic statement function names, 
and function subprogram names be designated 
individually as double-precision. The DOU- 
BLE PRECISION type statement provides one 
means of doing this. 


The FORTRAN LCP generates DOUBLE PRECI- 
SION statements that include each variable 
mame and arithmetic statement function name 
found in 7090/7094 double-precision state- 
ments. 


Original: 
D ALPHA = BETA * GAMMA + FUNCTF (Y,2Z) 
Converted: 


DOUBLE PRECISION ALPHA, BETA, 
GAMMA, FUNCT,Y,Z 
ALPHA=BETA* GAMMA+FUNCT (Y, Z) 


‘Note that FUNCT is the name of an 
arithmetic statement function. 


REAL CONSTANTS IN DOUBLE-PRECISION STATE- 
MENTS: In 7090/7094, a real constant con- 
taining E-exponent notation can appear in a 
double-precision statement. The use of the 
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letter D in column 1 causes the constant to 
be treated as double-precision. 


By removing the D from column 1 of 
double-precision statements, the FORTRAN 
LCP creates the need for explicit specifi- 
cation of double-precision constants. This 
problem is solved by inserting D-exponent 
notation into each real constant found ina 
double-precision statement. 


Original: 
D A = 1567.0E15 * X + 2.4 
Converted: 


DOUBLE PRECISION A,X 
A=1567.0D15*X+2.4D0 


REFERENCES TO THE MOST-SIGNIFICANT PART OF 
A _DOUBLE-PRECISION VARIABLE: In 7090/7094 
FORTRAN II, a programmer can refer to the 
most-Significant part of a double-precision 
variable by referring to that variable ina 
Single-precision statement. 


In System/360 FORTRAN, a double- 
precision number is stored as an entity. A 
programmer cannot directly access the most- 
Significant or least-significant part of 
the number. However, by using the function 
SNGL, the programmer can derive the most 
Significant part from the double-precision 
entity. | 


The FORTRAN LCP uses the 
to translate a reference to the most- 
Significant part of a double-precision 
variable ina statement without a D in 
column 1. 


function SNGL 


When the reference in such a statement 
is used in any manner except as an argument 
to a function or subprogram, the FORTRAN 
LCP makes the variable an argument to the 
function SNGL. During execution of the 
converted statement, the desired part of 
the double-precision variable is returned 
to the object program. 


The variable is also made an argument to 
the function SNGL when it is in an expres- 
sion used aS an argument to another func- 
tion or subprogram (see example below). 
However, when the variable name stands 
alone aS an argument to a éfunction or 
subprogram, the reference is not altered. 


Original: 


D B=C¥#*D 
IF (B) 5,5,10 
5 CALL XYZ (B, C*#2) 
10 AB = C * D - SINF(B) 


Converted: 


DOUBLE PRECISION B,C,D 
B=C#*D 
IF (SNGL (B))5,5,10 

5 CALL XYZ (B, SNGL (C) **2) 

10 AB=SNGL (C) *SNGL (D) - SIN (B) 


REFERENCES TO THE LEAST-SIGNIFICANT PART OF 


A DOUBLE-PRECISION VARIABLE: 
FORTRAN, 


In System/360 
it is not possible to refer to the 


least-significant portion of a double- 
precision variable. 
When the FORTRAN LCP detects that a 


Subscripted variable definitely refers to 
the least-significant part of a double- 
precision number, it issues a message to 
indicate that the statement must be changed 
by hand. 


However, when variables are used as 
subscripts to a double-precision variable, 
the FORTRAN LCP cannot determine whether 
the values of the subscripts will refer to 
the most-significant or least-significant 
part of a number. In this case, LCP 
translates the statement by using the 
function SNGL. 


Consider the following example: 


D DIMENSION A (5,5), C (3) 
DIMENSION B (10) 
DO 7 J=1, 10 


7 B(J) = A(I,J) 
8 D = C(I) 
9 B= C(4) 


The FORTRAN LCP can determine immediate- 
ly that the subscript of C in statement 9 


is a reference to the least-Ssignificant 
part of a number. The statement is not 
translated and is flagged for hand conver- 
sion. 


However, the FORTRAN LCP cannot deter- 
mine whether the subscripts in statements 7 
and 8 refer to the most-significant or 
least-significant part of the numbers. 
Those two statements are translated by 
using the function SNGL and warning messa- 
ges are issued to indicate that the tran- 
Slations may be invalid. The conversion is 
shown below. | 


Original: 


D DIMENSION A(5,5), C(3) 
DIMENSION 8 (10) 
DO 7 J=1, 10 


7 BW) = A(I,J) 
8 D = C(I) 
9 BE = C(4) 


Converted: 


DOUBLE PRECISION A(5,5) ,C (3) 
DIMENSION B (10) 
DO 7 J=1,10 

7 B(J)=SNGL (A (I,J) ) 

8 D=SNGL (C (I) ) 

9 E=C (4) 


Warning messages appear with statements 
7, 8, and 9 in the output listing. 


If a reference containing variable sub- 
Scripts appears on the left side of an 
arithmetic statement, the statement iS not 
converted. This reference indicates that a 
quantity is to be stored in one part of a 
double-precision number. The FORTRAN LCP 
issues a message to indicate that the 
Statement must be changed by hand. 


Original: 


D DIMENSION A(5,5,5) 
A (I,J ,K) =B*¥*2 


Converted: 
DOUBLE PRECISION A(5,5,5) 
A (L,J,K) =B*¥*2 


DOUBLE-PRECISION VARIABLES IN INPUT/OUTPUT 


LISTS: In 7090/7094 FORTRAN II, each part 
of a double-precision number is read or 
written separately. 

In  System/360 FORTRAN, a double- 


precision number iS read or written as an 


entity. 


In converting input/output statements, 
the FORTRAN LCP does not attempt to modify 
references to double-precision variables or 
double-precision arrays. When such 
references are encountered, the FORTRAN LCP 
generates messages to indicate that the 
statements must be changed by hand. 


Consider the following conversion: 


Original: 


D DIMENSION H (10) 
D A=S8* ¢ 
13 WRITE TAPE 6, A(1), A (2) 
14 WRITE TAPE 6, A, C(1) 
15 READ TAPE 5, (H(I), I=1, 20) 
16 WRITE TAPE 6, B(2), (H(I), 
H(I+10), I=1, 10) 
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Converted: 


DOUBLE PRECISION A,B,C,H(10) 
A=B¥*C 
13 WRITE (6) A(1) ,A (2) 
14 WRITE (6) A,C(1) 
15 READ (5) (H(I) , 1=1,20) 
16 WRITE (6) B(2), (H(I) ,H(I+10), 
I=1,10) 


Note that the DOUBLE PRECISION statement 
is generated and that the READ and WRITE 
portions of the statements are converted. 
However, all references to double-precision 
variables and arraysS are unchanged. Warn- 
ing mesSsageS are generated in the output 
listing for statements 13, 14, 15, and 16. 


The difference in the manner in which 
double-precision variables and arrayS are 
read and written also requires that FORMAT 
statements be changed. Consider the _ fol- 
lowing coding: 


D A=B#*C 
WRITE OUTPUT TAPE 5,10,A(1) ,A (2) 
10 FORMAT (2012) . 


The FORTRAN LCP 
the conversion specified 
Statement pertains to 


cannot recognize that 
in the FORMAT 
double-precision 


variables and therefore cannot translate 
the statement. Whenever there is a double- 
precision variable or array in an 


input/output list, a message iS generated 
to indicate that the FORMAT statement asso- 
ciated with the input/output statement must 
be changed by hand. 


COMMON STATEMENTS CONTAINING DOUBLE- 
PRECISION VARIABLES: In 7090/7094 FORTRAN 
II, no boundary problems are involved when 
a COMMON statement contains a mixture of 
Single-precision and double-precision 
variables. 


This contrasts with System/360 FORTRAN 
in which boundary requirements may affect 
the validity of a COMMON statement that 
contains both single-precision and double- 
precision variables. 

Consider the following in two 
subroutine subprograms: 


coding 


Subprogram 1: 
SUBROUTINE SUB1 


COMMON R,S,T 
D A=S**2 


Subprogram 2: 
SUBROUTINE SUB2 


COMMON X,Y,Z 
DIMENSION Y (2) 


In 7090/7094 FORTRAN II, COMMON storage 


is allocated so that R is equivalent to X, 
S to Y, and T te Z. 
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In System/360 FORTRAN, the COMMON 
statement in Subprogram 1 would be invalid 
because the double-precision variable S 
would not begin on a double-word boundary. 
The System/360 FORTRAN compilers begin COM- 
MON storage on a double-word boundary and 
aSSign variables consecutively. To remedy 


the boundary problem and to preserve the 
implied equivalencies between the subpro- 
grams, the programmer could change the 


order of the variables in the COMMON state- 
ments so that T appeared before S, and Z 
appeared before Y. 


In making hand changes to compensate for 


boundary problems, the user must take care 
not to destroy implied equivalencies 
between one program and another. For exam- 


ple, if the user attempted to compensate 
for the boundary problem in Subprogram 1 by 
inserting a dummy variable between R and S, 
the implied equivalencies between Subpro- 
gram 1 and Subprogram 2 would be destroyed. 


The boundary problem is also involved in 
use of the reorder COMMON option. In 
reordering variables in COMMON statements, 
the FORTRAN LCP does not’ ensure that a 
double-precision variable will begin on a 
System/360 double-word boundary. 


When converting double-precision pro- 
grams, the FORTRAN LCP issues a message to 
indicate that COMMON statements should be 
checked and hand changes made where neces- 
sary. 


EQUIVALENCE STATEMENTS CONTAINING DOUBLE- 
PRECISION VARIABLES: In /090/7094 FORTRAN, 


a Single-precision variable can be 
equivalenced to the least-Significant por- 
tion of a double-precision variable. Con- 
Sider the following coding: 


EQUIVALENCE 
D A = B**2 


(A (2) ,E) 


In 7090/7094 FORTRAN, the EQUIVALENCE 
statement specifies that the variable E is 
to Share COMMON storage with the least- 
Significant part of A (assuming that A is 
not an array). In System/360 FORTRAN, it 
is not possible to directly reference the 
least significant part of a double- 
precision variable. 


The FORTRAN LCP generates a warning 
message when it encounters a statement that 
equivalences a variable to the least- 
Significant portion of a double-precision 
variable. The statement must be changed by 
hand. 


DOUBLE-PRECISION FUNCTION NAMES: The FOR- 
TRAN LCP adds the letter D to the beginning 
of the name of a library or built-in 
function wherever that name appears in a 


double-precision statement. The letter F 


at the end of the name is removed. 


These actions make the source program 
name the same as the name of the function 
on the library tape. 


A message in the output listing indi- 
cates the Statement has been converted. 


Original: 
D Y = SINF (X) 
Converted: 


DOUBLE PRECISION yY,X 
=DSIN (X) 


DOUBLE-PRECISION FUNCTION SUBPROGRAMS: In 
converting a double-precision function sub- 
program, the FORTRAN LCP specifies the type 
of the function as part of the FUNCTION 
Statement. A message in the output listing 
indicates that the FUNCTION statement has 
been converted. 


Original: 
FUNCTION SUB1 


(X, Y) 


D SUB 1=X+ Y 
D RETURN 
END 


Converted: 


DOUBLE PRECISION FUNCTION SUB1 
(X,Y) 
DOUBLE PRECISION X,Y 


SUB 1=X+ Y 


COMPLEX OPERATIONS 


This list contains conversion items that 


apply specifically to complex arithmetic 
operations. 
Incompatibilities concerning complex 


arithmetic operations result from (1) dif- 
ferences in the manner in which 7090/7094 
FORTRAN II and System/360 FORTRAN store the 


elements of a complex array, and _ (2) adif- 
ferences in the manner in which a program- 
mer accesses parts of a complex number. 
These differences are discussed in the 
Section "Arrangement of Arrays in Storage." 


The FORTRAN LCP resolves most of these 
incompatibilities by doubling the dimension 
of each complex variable or array and by 
treating both parts of a complex number as 
real numbers. 


When complex arithmetic statements are 
encountered during the conversion, the FOR- 
TRAN LCP uses the functions REAL, AIMAG, 
and CMPLX to accomplish the complex calcu- 
lations. The function CMPLX is used to 
derive a complex value from the two real 
numbers that represent the FORTRAN II com- 
plex number. Once the complex value has 
been derived, the functions REAL and AIMAG 
are used to derive the parts. Each part, 
however, is stored aS a real number. 
Insert variables are created where neces- 
Sary to facilitate the conversion and to 
make the converted coding more efficient. 


System/360 Level H FORTRAN is the 
level that permits use of complex 
variables, arrays, or statements. When 
converting to Basic Support or Level E 
FORTRAN, the FORTRAN LCP generates a warn- 
ing message whenever it encounters a com- 
plex statement in the source program. ‘The 
statement must be converted by hand. 


only 


COMPLEX VARIABLES IN ARITHMETIC STATEMENTS: 
In 7090/7094 FORTRAN II, entire statements 
are designated as complex by inserting an I 
in column 1 of the statement. 


The FORTRAN LCP removes the I from 
column 1 and treats both parts of a complex 
variable as real variables. References to 
a complex variable are translated by using 
the functions REAL, AIMAG, and CMPLX. 


Original: 


I DIMENSION A (4,4) 
I 10 A(I,J) = Be*2 


Converted: 


DIMENSION A (4,8) ,B (2) 
COMPLEX FCP000 

10 FCP000=CMPLX (B (1) ,B (2)) **2 
A (I,J) =REAL (FCP000) 
A (L,d+4) =AIMAG (FCP000) 


The dimensions of array A and variable B 
are doubled. An insert variable is created 
and eStablished as a complex variable by 
using the explicit type statement COMPLEX. 
This insert variable iS created to avoid 
duplicate computations. 


Conversion Actions for the 7090/7094 Compiler 7 


Statement 10 causes a complex value to 


be computed and stored in the complex 
variable FCPOOO. The real part of that 
variable is then stored in A(I,J) and _ the 


imaginary part is stored in A(I,J+t4). 


Note: In the above example, statement 10 
Might be the last statement in the range of 
a DO loop. The FORTRAN LCP flags this 
Statement to indicate that the user should 
check to determine whether the generation 
of additional statements has affected the 
range of a DO loop. See the discussion of 


"Statement Numbers With Complex 
Statements." 
COMPLEX DATA IN If OTATEMENTS: In 


7090/7094 FORTRAN II, complex constants and 
variables can be used in the expression of 
an arithmetic IF statement. 


This is invalid in System/360 FORTRAN. 


The FORTRAN LCP issues a warning message 
whenever it encounters an IF statement that 
contains an I in column 1. The user must 
change the statement by hand. 


COMPLEX VARIABLES IN NONCOMPLEX STATEMENTS: 
If a reference to a complex variable 
appears in a 7090/7094 FORTRAN II statement 
that lacks an I in column 1, the reference 
is left unchanged. 


Original: 


I DIMENSION A (5,5,5) ,C (3) 
BB = A(I,J,k) +C (4) 


Converted: 


DIMENSION A (5,5,10) ,C (6) 
BB=A (L,J,K) #C (4) 


The FORTRAN LCP treatment of complex 
variables and arrays is such that the 
subscripts of a complex variable in noncom- 
plex statements and input/output statements 
remain valid in the converted program. 


STATEMENT NUMBERS WITH COMPLEX STATEMENTS: 
In converting complex arithmetic 
Statements, the FORTRAN LCP replaces the 
Original statement with several new state- 
ments. 


If a statement number is associated with 
the complex arithmetic statement, that num- 
ber is assigned to the first of the new 
Statements. This creates a problem if the 
Original statement is the last statement in 
the range of a DO loop. Consider the 
following conversion: 


4g 


Original: 


T DIMENSION A(10), B(10) 
DO 100 K=1, 10 


IF (X-Y) 100,200,100 


I 100 A(R) = B(K) 


Converted: 


DIMENSION A (20) ,B (20) 
COMPLEX FCP000 
DO 100 K=1,10 


IF (X-Y) 100,200,100 


100 FCP000=CMPLX (B (K) ,B (K+10) ) 
A (K) =REAL (FCP000) 
A (K+10) =AIMAG (FCP000) 


In the converted coding above, the user 
will want the last two statements to be 
included in the range of the DC loop. Cne 
solution to the problem is to move the 
statement number 100 to the last of the 
generated statements. Note, however, that 
this action necessitates modification of 
two transfer numbers in the IF statement 
within the DO loop. : 


When the FORTRAN LCP converts a complex 
arithmetic statement, it generates a warn- 
ing message whenever the statement has a 
statement number. 


COMPLEX VARIABLES IN INPUT/OUTPUT LISTS: 
References to complex variables in 
input/output lists are left unchanged. The 
original references are valid because of 
the manner in which the FORTRAN LCP treats 
complex variables and arrays. 


Original: 


I DIMENSION D (3,4) ,H (10) 
I 10EB=F*G/ H(J) + D(1,1) 
WRITE OUTPUT TAPE 6, 13, D(I,J), 
E(2),-G(1), (H(1) ,I=1,20) 
READ INPUT TAPE 5,20, (H(I), 
| I=1, 20) 


Converted: 


COMPLEX FCP000 
DIMENSION D (3,8) ,H(20) ,E(2) ,G(2), 
F (2) 
10 FCPOO0=CMPLX (F (1),F(2)) *CMPL(G(1), 
G (2) ) /CMPLX (H (J) , H (J+10) ) 
+CMPLX (D(1, 1) ,D (1, 5)) 
E (1) =REAL (FCP000) 
E (2) =AIMAG (FCP000) 
WRITE (6,13) D(1,J) ,E (2) ,G(1), (H (I), 
I=1, 20) 
READ (5,20) (H(I) , I=1,20) 


COMPLEX FUNCTION NAMES: The FORTRAN LCP 
adds the letter C to the beginning of the 
name of a library or built-in function 
wherever the name appears in a complex 
statement. The letter F at the end of the 
name is removed. 


These actions make the source program 
name the same as the name of the function 
on the library tape. 


A message in the output listing indi- 
cates the statement has been converted. 


Original: 
I A = COSF (B) 
Converted: 


COMPLEX FCP 000 

DIMENSION A (2) ,B (2) 

FCP 000=CCOS (CMPLX (B (1) , B (2))) 
A (1) =REAL (FCP 000) 

A (2) =AIMAG (FCP000) 


REFERENCES TO COMPLEX FUNCTIONS AND SUBPRO- 
GRAMS: The FORTRAN LCP takes the following 
actions in converting complex functions or 
Subprograms and in converting statements 
that contain references to a complex func- 
tion or subprogram. 


Arithmetic Statement Function: The func- 
tion name and insert variables that replace 
the dummy arguments used in the definition 
of tne function are included in COMPLEX 
type statements. A variable that appears 
in the expression part of the definition 
but is not a dummy argument will result in 
incompatibilities. The converted defini- 
tion statement is flagged to indicate that 
such variables are in the statement. 


When a reference to a arithmetic state- 
ment function appears in a complex state- 
ment, the arguments in the reference are 
converted by using the function CMPLX to 
derive complex values from the two real 
parts of each argument. 


Built-In and Library Functions: Complex 
arguments must be transmitted to the actual 


functions that exist in the library. The 


Statements are converted so that complex 
arguments are provided. 
subprograms: Because subprograms are 


also converted by the FORTRAN LCP, varia- 
bles and array names that appear aS argu- 
ments are converted to real variables and 
arrays. However, the FORTRAN LCP is unable 
to convert a complex expression used aS an 
argument in the calling program because the 
converted subprogram expects to receive 
real arguments. The statement containing 
the complex expression as an argument is 
flagged to indicate the need for hand 
conversion. 


Consider the following conversion in 
which ALIBF is a library or built-in func- 
tion, FNCSUB is a function subprogram, 
ARITHF iS an arithmetic statement function, 
and SUBRTN iS a subroutine subprogram: 


Original: 

I DIMENSION A (10) ,P (5) 

I ARITHF(C,D) =C+t+D+#t+ X 

T Y = ALIBF(B) + FNCSUB(E) + ARITHF 


(H,G) 
I 20 CALL SUBRTN (P,A(I) + (3.0,2.1),Y) 


Converted: 


COMPLEX ARITH,FCP001,FCP101,FCP102 
DIMENSION A (20) ,P (10) ,X (2) ,¥ (2) + 
B (2) ,E (2) ,H (2) ,G (2) 
ARITH (FCP101,FCP102) =FCP101 
+FCP102+X 
FCP001=CALIB (CMPLX (B (1) ,B (2) ) 
+FNCSUB (E) +ARITH 
(CMPLX (H (1) ,H(2)), 
CMPLX (G (1) ,G (2)) ) 
Y¥ (1) =REAL (FCP 001) 
Y¥ (2) =AIMAG (FCP001) 
20 CALL SUBRTN (P,A(I)+(3.0,2.1) ,Y) 


A message in the output listing indi- 
cates that the variable X in the arithmetic 
statement function could not be converted 
and must be changed by hand. A message 


will also be issued to indicate that the 
second argument in statement 20 (the argu- 
ment A (I) + (3.0, 2.1) ) could not be 
converted. | 
The following example illustrates the 
conversion action within a subprogram, 


using the subroutine name SUBRTN from the 
example above: 
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Original: 


SUBROUTINE SUBRTN (R,S,1) 
I ‘DIMENSION R (5), S (10) 


I T = SINF (R (KR) ) 
T RETURN 

END 
Converted: 


SUBROUTINE SUBRTN (R,S,T) 
DIMENSION R (10) ,S (20) ,T (2) 
COMPLEX FCP 000 


FCP 000=CSIN (CMPLX (R (K) , R (K+5) ) 

T (1) =REAL (FCP 000) 

T (2) =AIMAG (FCP000) 

RETURN 

END 

The complex variables and arrays have 

been converted so they can be treated as 
real variables and arrays. The conversion 
of the subprogram arguments in the calling 
program is effective only when the argu- 


ments are arrays, unsubscripted variables, 
and other function or subprogram names. 
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COMPLEX FUNCTION SUBPROGRAMS: 


The FORTRAN LCP issues a message whenever 
an argument in a calling program cannot be 
converted | 


In convert- 
ing a complex function subprogram, the 
FORTRAN LCP specifies the type of the 
function as part of the FUNCTION statement. 
A message in the output listing indicates 
the FUNCTION statement has been converted. 


Original: 
FUNCTION SUB2 (R,S) 


eo 


I SUB2=R+t+S 

I RETURN 
END 

Converted: 


COMPLEX FUNCTION SUB2 (R,S) 
DIMENSION R (2) ,S (2) 


SUB2=CMPLX (R (1) ,R (2) ) #CMPLX (S (1), 
S (2) ) 


INCOMPATIBILITIES THAT ARE NOT RECOGNIZED 


This list summarizes the FORTRAN II 
items and statements that are incompatible 
with System/360 FORTRAN and are not recog- 
nized by the FORTRAN LCP. All items in 
this list are also discussed in the conver- 
sion action lists. The user must check his 
converted program for occurrence of these 


items and make hand changes where 
necessary. The current FORTRAN compilers 
to which an item or statement refers are 
listed beside the title of the item or 


Statement. 


HIERARCHY OF ARITHMETIC OPERATIONS: (ALL 
current FORTRAN II compilers) If the user 
has failed to include parentheses to con- 
trol the order of computations in arithmet- 
ic expressions, the FORTRAN LCP neither 


provides parentheses nor generateS a mes- 
sage. If the order of computations is 
important, the user must check his program 


and insert the parentheses where necessary. 


DO STATEMENT: (All current FORTRAN II 
compilers) If a source program contains a 
transfer into a DO loop under any condition 
except that cited under the heading "DC 
Statement" in the section “Conversion 
Actions for Current FORTRAN II Compilers," 
the user must change his program by hand. 


INPUT AND OUTPUT OF ARRAYS: (All current 
FORTRAN II compilers except 1620 GOTRAN and 
1620 FORTRAN With FORMAT) The FORTRAN LCP 
changes the sequence of specification 
statements ina source program so that all 
specification statements (except FORMAT 
statements) appear before the first execut- 
able statement of the program. Because 
this reordering may affect input/output 
references to arrays, the user must check 
the converted output to determine whether 
any hand coding changes are required. 


CARRIAGE CONTROL CHARACTERS: (All current 
FORTRAN II compilers) The user must check 
his program to ensure that the characters 2 


through 9 or J through R are not used as 


carriage control characters. 


ORDERING OF ELEMENTS IN ARRAYS: (1410, 
70577080, 7090/7094) If the user employs 
non-FORTRAN statements to manipulate indi- 
vidual elements in an array, the locations 
referred to in the non-FORTRAN statements 
may be incorrect in System/360 FORTRAN. 
Care should be taken to refer to the 
elements of an array according to the 
locations in which they are stored by the 
System/360 FORTRAN compiler. 


READ (0100) AND WRITE (0500) STATEMENTS : 
(7080) The FORTRAN LCP does not recognize 


use of the values 0100 or 0500 in READ or 
WRITE statements, respectively, to desig- 
nate the card reader or console typewriter 
in a 7080 FORTRAN program. The replace 
tape reference option can be used to cor- 
rect this incompatibility. 


COMMON | STATEMENTS CONTAINING DOUBLE-— 
PRECISION VARIABLES: (7090/7094) Two 
problems are associated with COMMON state- 
ments that contain double-precision varia- 
bles, as follows: 


1. Boundary Problem: System/360 FORTRAN 


requires that a double-precision variable 
begin on a double-word boundary. Neither 
converted COMMON statements nor COMMON 


Statements generated in response to _ the 
reorder COMMON option are checked by the 
LCP to determine that each double-precision 
variable starts on a double-word boundary. 
The user should check COMMON statements in 
the converted program and make hand changes 
where necessary. 


2. Implied Equivalencies: In 
instances, COMMON statementS in a 
program and 


some 
calling 
a subprogram are specified so 
that implied equivalencies exist between 
variables in the two programs. In making 
hand changes to meet System/360 boundary 
requirements, the user should take care to 
preserve these implied equivalencies. 
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CONVERSION OUTPUT AND MESSAGES 


This section describes the output gener- 
ated by the FORTRAN LCP and explains’ the 
messages created during conversion. 


CONVERSION OUTPUT 


The FORTRAN LCP can produce two forms of 
output: punched output and printed output. 


Punched output is 
punched output is specified, the FORTRAN 
LCP produces a punched deck that contains 
the converted FORTRAN program. The user 
can also specify that non-FORTRAN state- 
ments are to be punched into cards. 


optional. When 


A listing of the converted program is 
always provided. This iisting contains the 
converted program with messages generated 
during conversion, and also contains tables 
showing changes in variable and function 
names. In addition, the user can specify 
that a listing of the original source 
statements is to be included in the listing 
output. 


Both forms of 
the following text. 


output are discussed in 


PUNCHED CARD OUTPUT 


The punched card deck produced by the 
FORTRAN LCP contains converted statements 
and source statements that did not require 
conversion. In all cases, extraneous 
blanks have been removed from the state- 
ments. The form of the coding in the 
punched cards matches the coding in the 
listing of the converted program. 


Cards containing incompatibilities 
should be corrected before the new source 
deck is submitted for initial System/360 
FORTRAN compilation. 


If the user has specified that non- 
FORTRAN statements are to be punched, cards 
containing these statementS are separated 
from cards containing converted FORTRAN 
statements. The manner in which the cards 
are separated differs according to the 
device to which the punched output is sent. 


When punched output is sent directly to 


the 1402 card punch, cards containing non- 
FORTRAN statements drop into a different 
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punched-card pocket from the one that 
contains converted FORTRAN statements. 
When punched output is recorded on tape and 
later punched, the non-FORTRAN cards are 
punched before non-FORTRAN cards, but all 
cards fall into the same punched-card pock- 
et. 


LISTING OUTPUT 


The listing is 
sections, as follows: 


divided into two major 


e Source 
optional) 

e Converted program listing 
always provided) 


program listing (which is 


(which is 
The converted program listing is subdi- 
vided into four parts, as follows: 


e Listing of the specification statements 
in the converted program. 


e Function name table showing the 
System/360 function names and LCP sub- 
stitution names that have replaced 


source program function names. 

e Insert variable table showing the LCP 
insert variables that have replaced 
variable names in the source program. 

e Listing of the remainder of the con- 
verted program with messages. 


Each part of the output listing is 
described more fully in the following para- 
graphs. 


source Program Listing 


original 


This listing contains the 
source statements exactly as they appeared 
in the input cards. The statements are 


listed consecutively. 


This portion of the listing is optional. 
The user specifies in a control card wheth- 
er or not the source program is to be 
listed. 


Function Name Table 


This table contains each function name 
in the source program that has either (1) 


been replaced with an LCP substitution 


name, or (2) been changed to an equivalent 
System/360 function name. (However, FOR- 
TRAN II function names that have _ been 


converted merely by removing the terminal F 
are not included in the table.) The 
changed name or the LCP substitution name 
appears beside the function name it has 
replaced. 


This table does not appear in the output 


listing if there are no function name 
changes. 
The conditions that cause a function 


name to be changed or replaced are des- 
cribed in the section "General Problems in 
Converting to System/360 FORTRAN." 


Appendix B contains a listing of 
System/360 function names that are equiva- 
lent to FORTRAN II function names. 


Insert Variable Table 


This table shows each source program 
variable name that has been replaced and 
the LCP insert variable that has replaced 
it. The same insert variable is used to 
replace the same variable name wherever 
that name appears in a source program. 


This table does not appear in the output 
listing if no variable name has _ been 
replaced by an insert variable. 


The conditions that cause insert varia- 
bles to be placed ina program are des- 
cribed in the section “General Problems in 
Converting to System/360 FORTRAN." 


Converted Program Listing 


This jiisting contains the converted 
source program and the messages generated 
during the conversion. 


The converted program contains converted 
Statements, statements generated by the 
LCP, incompatible statements that could not 
be converted, and source statements that 
did not require conversion. Extraneous 
blanks have been removed from statements in 
the converted program. 


In the converted program listing, all 
specification statements (except FORMAT 
statements) are printed ina section that 
precedes the function name table and the 
insert variable table. The remainder of 
the converted program, starting with the 
first executable statement, iS printed 
after the two tables. 


The listing of the converted program 
coding is divided generally into two parts. 


The left portion of the listing contains 
the converted FORTRAN statements. The 
right portion of the listing contains text 


messages that indicate whether the state- 
ment has been modified by the FORTRAN LCP, 
generated by the FORTRAN LCP, or is incom- 
patible with System/360 FORTRAN. Also pro- 
vided are four-digit message codes that aid 
the user in determining the exact nature of 
each conversion action or incompatibility. 
These message codes will be explained in 
detail in the reference manual provided 
when the program is completed. 


MESSAGES 


The messages in the converted program 
listing provide the user with two methods 
of identifying actions taken by the FORTRAN 
LCP. 


The text messages facilitate quick visu- 
al identification of the status of each 
statement in the converted program. This 
enables the user to scan the program to 
find individual statements or groups of 
statements that require hand changes. 


A text message appears with each output 
statement that fits into one of the follow- 
ing categories: 

e The statement was modified by the FOR- 
TRAN LCP. 

e The statement was 
FORTRAN LCP. 

e The statement, or a portion of the 
Statement, is definitely invalid in 
System/360 FORTRAN but could not be 
converted by the FORTRAN LCP. 

e The statement, or a portion of the 
statement, may be invalid in System/360 
FORTRAN. 


generated by the 


In addition to text messages, the FOR- 
TRAN LCP produces four-digit message codes 
to assist the user in determining the exact 


nature of each conversion action and each 
unresolved conversion problem. A distinct 
message code will be related to each con- 


version action or unresolved problem. The 
meaning of each code will be explained ina 
later version of this reference manual. 


Using the output listing, the FORTRAN 
LCP manual, and the proper System/360 FOR- 
TRAN manual, the user can determine the 
hand changes that are required to make his 
program suitable for compilation by a 
System/360 FORTRAN compiler. 
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CONTROL CARDS AND OPERATING PROCEDURES 


This section contains information on 
control specifications and the various 
machine configurations and operating 
options available to the user. 

CONTROL SPECIFICATIONS 
Certain control information is required 


for the FORTRAN LCP to accomplish a conver- 
sion. This control information can be 
provided in either of two ways. 


The information can be preset in the 
communications areas of the LCP Control 
Phase or the information can be provided in 
control cards. 


PRESET CONTROL INFORMATION 


In the distributed LCP tape, control 
entries have already been preset to a 
Standard pattern. 


The user might not need to 
pattern. However, to modify an entry, the 
user punches specified characters into 
cards within the LCP Control Phase. In 
this way, the user replaces a standard 
option with his own preset option. 


change the 


Whenever the LCP Control Phase is loaded 
at the beginning of a conversion, control 
indicators are set to reflect the preset 
options. 


TO Override a preset option the user 
must include a control card for that option 


in the control card deck for the source 
program. The control card overrides a 
preset option only for the program for 


which it is used. 


By presetting control options, the user 
can reduce the number of control cards 
required for each conversion. ThiS proce- 


dure iS useful whenever the same options 
are desired for many consecutive programs. 


USE OF CONTROL CARDS 


When all control options have been pre- 
set, the only control card required with a 
source program is a Specific terminal con- 
trol card. 
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However, if the user wants to change 
options for a particular conversion, addi- 
tional control cards must be included in 
the control card deck. 


The terminal control card or a set of 
control cards must be provided for each 
source program processed by the FORTRAN 
LCP. 


When more than one control card is used, 
the cards related to one source program (a 
main FORTRAN program or a subprogram) must 
appear ina Single control card deck. The 
individual cards may be in any order within 
this deck except that the last card must be 
the terminal card. 


The position of this deck within the 
card input stream depends upon the data 
processing equipment being used. Position- 
ing of control cards is discussed later in 
this section. 


CONTROL CARD ENTRIES 


To override preset options for one con- 
version, the user must provide one or more 
of the following entries in control cards 
used with a source program: 


1. Base Computer: This entry indicates 
the current IBM computer for which the 
source program was written. 

2. Target Level of System/360 FORTRAN: 
This entry indicates the level of 
System/360 FORTRAN to which the source 
program is to be converted. The user 
can specify Basic Support, Level E, or 
Level H FORTRAN. 

3. Input Unit: This entry indicates the 
input unit on which the source program 
is located. The user can specify the 
card reader, an LCP work tape (single 
program only), or an additional tape 
unit. | 

4. Input Card Code: This entry indicates 
the card code that is present in the 
source program. The user specifies 
either BCDIC input or EBCDIC input. 

5. Output Card Code: This entry indi- 
cates the card code to be used in 
punching an output deck. The user 
specifies either BCDIC output or 
EBCDIC output. 

6. Listing Output Specifications: Two 
entries are specified for listing out- 
put, as follows: 


ae Source Program Entry. This entry 


10. 


11. 


indicates whether or not a listing 
of the original source program is 
to be included in listing output. 
b. Listing Output Unit Entry. This 
entry indicates whether listing 
output is to be sent to the on- 
line 1403 printer or to magnetic 
tape. 
Punched Output Specification: An entry 
is required to indicate whether or not 
the FORTRAN LCP is to provide punched 


output. Two other entries are 
specified, as follows: 
a. Punched Output Content Entry. 


This entry indicates whether FOR- 
TRAN statements only are to _ be 
punched, or whether converted FOR- 
TRAN statements and non-FORTRAN 
statements are to be punched... If 
the user designates’ that non- 
FORTRAN statements are to be 
punched, these cards are Separated 
from converted FORTRAN cards. 


b. Punched Output Unit Entry. This 


entry indicates whether punched 
output is to be sent to the on- 
line 1402 card punch or _ to 


magnetic tape. 

Reorder COMMON Specification: This 

entry indicates whether or not the 

variables in COMMON statements are to 
be reordered. The options are: 

ae Variables are to be left in the 
Same order in which they appear in 
the source. program COMMON state- 
ments. 

b. Variables are to be reordered _ so 
that the System/360 FORTRAN com- 
piler will allocate COMMON storage 
in the same manner in which it was 
allocated by the FORTRAN II com- 
piler. (See the discussion of the 
COMMON- EQUI VALENCE interaction 
problem in the section “General 
Problems in Converting to 
System/360 FORTRAN.") . 

Date: This entry can be used to pro- 

vide the date on which the conversion 

is being performed. If provided, the 
date appears in the output listing. 

Integer Variable Change Entry: This 

entry can be used to change the three 

alphabetic characters that appear at 
the beginning of all integer insert 
variables generated by the FORTRAN 

LCP. The form of the integer insert 

variable is normally LCPxxx where the 

xxx represents a three-digit number. 

If the user desires alphabetic charac- 

ters other than LCP, the desired 

alphabetic characters are entered ina 
control card. 

Real Variable Change Entry: This entry 

can be used to change the three alpha- 

betic characters that appear at the 
beginning of all real insert variables 
generated by the FORTRAN LCP. The 
form of the real insert variable is 


normally FCPxxx where the xxx rep- 
resents a three-digit number. If the 
user desires alphabetic characters 
other than FCP, the desired alphabetic 


characters are entered in a control 
card. 

12. Replace Tape Reference Entry: This 
entry can be used to specify that 
constants used as tape references in 
input/output statementS are to be 
modified. The user can specify that a 


constant is to be 
replaced with a variable name or 
another tape constant wherever that 
tape constant appears in the source 
program. If a tape constant is to be 
replaced by a variable name, the name 
must be six or fewer characters and 
must begin with one of the letters I 
through N. For each tape constant to 
be changed, the user is required to 
provide the constant as it appears in 
the Source program and followed by the 
variable or constant that is to 
replace it. The LCP allows references 
to as many as five different tape 
units to be changed wherever’ they 
appear in input/output statements in 
the program. 


particular tape 


SYSTEM CREATION 


The FORTRAN LCP is delivered to the 
customer ona reel of magnetic tape. This 
tape is used to create an LCP system either 
in the form of a system card deck or in the 


form of a System tape. 


The term LCP system is used in this 
manual to refer to the control and process- 
ing phases of the FORTRAN LCP. The term 
system card deck refers to a deck of cards 
that contain these phases. The term system 
tape refers to a tape that contains the 
phases. 


The manner in which the user creates the 
system card deck and the system tape is 
discussed in the following paragraphs. 


CREATING A SYSTEM CARD DECK 


The delivered FORTRAN LCP tape is con- 
verted to a system card deck by using a 
utility program to punch the contents of 
the delivered tape. 


The first program on the delivered tape 
is the Tape Create Program. Consequently, 
this program is the first to be punched 
out. The user must remove the Tape Create 
Program cards from the front of the punched 
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deck. The remainder of the deck is then 


ready for use aS a system card deck. 


Preset options can be punched into Con- 
trol Phase cards if the deck is used. 


CREATING A SYSTEM TAPE 


The Tape Create Program enables the user 
to automatically convert the system card 
deck into a system tape. 


The procedure for creating a system tape 
is as follows: 


1. Punch the contents of the delivered 
FORTRAN LCP tape as described above. 


2. At this point, the user can punch 
control options into Control Phase 
cards. 


3. Place the entire punched deck into the 
read hopper of the 1402 Card-Read- 


Punch. (Do not remove the Tape Create 

‘ Program from the front of the punch 
deck.) 

4. Mount a work tape on an available tape 
unit. 


The pressing of the Load key initiates 
loading and execution of the Tape Create 


Program. When execution is completed, the 
LCP system has been created on the work 
tape. 


PROCESSING CONFIGURATIONS 


The FORTRAN LCP is designed to operate 
on a minimum machine configuration 
consisting of an 8,000-character 1401 with 
a card-reader, a printer, three tape units, 
the Advanced Programming Feature, and the 
High-Low-Equal Compare Feature (or a 
System/360 with the 1401 Compatibility Fea- 
ture and equivalent input/output devices 
and features.) 


The three tape units in the minimum 
configuration are LCP work tapes. One of 
these units can be used for an input 
function. If the user desires, he can 
convert a Single program mounted on one of 
the work tape units. When the source 
program has been read, the tape is rewound 
and unloaded. 


Greater efficiency can be achieved by 
using more than three tape units. Each 
additional tape unit either speeds process- 
ing or provides the user with more options. 
The 1401 system permits aS many aS Six tape 
units to he used. If available, the 
fourth, fifth, and sixth tape units can be 
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used for the LCP system input, source 
program input, or punched and/or print 
output, depending on the user's preferences 
(see Figure 5). 


CARD-ORTENTED SYSTEM 


If the LCP phaSesS are on cards, the 
system is called a card-oriented system. 
The source programs may be either on cards 
or on tape. Note that the LCP control 
cards must always be introduced through the 
card reader. 


is on cards, the 
into the LCP 


If a source 
source program is inserted 
system card deck. Figure 6 shows’ the 
sequence in which portions of the combined 
deck are placed in the 1402 read hopper. 


program 


The deck begins with the LCP Control 
Phase. This phase is followed by the 
control card deck for this conversion. The 
control cards are followed by the first LCP 
processing phase and then by the source 
program itself. The rest of the deck 
consists of the other LCP processing phases 
in sequence. 


When the minimum three tape units are 
available, only a single source program can 
be processed from tape. This tape is 
mounted on an LCP work tape unit. The 
control card deck and the system card deck 
are placed in the card reader. The 
Sequence of the deck is: (1) LCP Control 
Phase, (2) control card deck, and (3) LCP 
processing phases in sequence. An entry in 
a control card indicates that the source 
program is on the work tape. 


When a fourth tape unit is available, 
the user can process single or stacked 
programs from tape. However, the operator 
must reload the system card deck anda 
control card deck for each program to be 
converted. When processing stacked pro- 
grams, the LCP issues a message after the 
last program has been converted. 


TAPE-ORIENTED SYSTEM 


When the LCP phases are on tape, the 
system is called a tape-oriented system. 
The source programs may be either on cards 
or on tape. 


tape-oriented system, Single or 
Stacked programs can be processed through 
the card reader. For stacked programs on 
cards, the format of the input deck is as 
shown in Figure 7. A control card deck is 


In a 


required for each source program, and the 
source program immediately follows its con- 
trol card deck. 


The minimum tape-oriented 
tape units) also 
program to be processed from an 
tape. 


system (four 
allows a single source 
LCP work 


When a fifth tape unit is available, 
stacked source programs can be processed 
from the additional unit. When the LCP 
phases and the source programs are on tape, 
the only input from the card reader is the 


control card decks in the sequence in which 
the programs are to be converted. 


In processing stacked Source programs on 
tape, transition from one job to the next 
is accomplished by the LCP. When conver- 
Sion of one program is completed, the LCP 
Control Phase is automatically reloaded and 
processing of the next program begins. 


A special entry in the terminal control 
card for the last source program Signals 
the FORTRAN LCP that it iS processing the 
last in ae series of stacked source 
programs. 
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Required Tape Units 


Figure 5. 
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Work 
Tape 


Work 
Tape 


Work 
Tape 


NOTES: 

* A tape containing a 
single source program 
can be mounted on a 
work unit and removed 
after the program has 
been read. 


**When placed on tape, 
punch and listing output 
are recorded on the same 
tape unit. 


IBM 1402 Card 
Reader 


LCP 


Control 
Cards 


IBM 1401 


Processing Unit 


(or System/360 With 
the 1401 
Compatibility 
Feature) 


Input/Output Configuration 


Input/Output Options 


IBM 1402 
ai cae 


tee Unit 


IBM 1402 


sai aoa 
Source 
Program fase Unit 


Input 


a” | «Ss IBM 1402 
Card Punch 
or 
Tape Unit 


kk 


IBM 1403 
Printer 
(Model 2) 
or 
Tape Unit 


Listing 
Output 


Options for the FORTRAN LCP 


Figure 6. 


All Subsequent LCP Phases 
in Sequence 


LCP Control Cards 


Control Phase 


Input Deck When Both the FORTRAN LCP and Source Program Are on Cards 
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Figure 7. Input Deck When the FORTRAN LCP Is on Tape and Source Programs Are 
Read from the Card Reader 
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This appendix illustrates LCP conversion 


of a FORTRAN program. Figure 8 is a Besides condensing the coding, the LCP has: 
listing of the program as it was written 
for a FORTRAN II compiler. Figure 9 isa 1. Placed specification statements before 
listing of the Same program after conver- the first executable statement in the 
sion by the FORTRAN LCP. program. 

2. Converted the READ and WRITE state- 

The program reads ten real numbers from ments into acceptable System/360 for- 

tape, sorts the numbers into ascending mat. 
sequence, takes the square root of each 3. Created insert variables where 
number, multiplies it by pi, and truncates required. 
the result to an integer. Finally, the 4. Supplied a 0O for the exponent of the 
program writes the results onto tape. If real constant PI. 
any product causes an accumulator overflow, 5. Replaced the function names SORTF and 
the program prints out the corresponding XINTF with the proper System/360 names 
input number with a message and halts. (See Appendix B). 

6. Converted the accumulator overflow. 

Conversion actions and the reasons’ for test into a CALL to ae System/360 

them are explained fully under "Conversion FORTRAN subroutine. 
Ge a eg ee ge ere eg Eg Pee ep ee Dg ET Bee py 
[ COMMON ARRAY, IFIX INPUT 
DIMENSION ARRAY (10), IFIX (10) INPUT | 
| READ INPUT TAPE 2, 100, (ARRAY (I), I = 1, 10) INPUT | 
| 100 FORMAT (10F12.4) INPUT | 
j DO 200 INDEX = 1, 10 INPUT | 
NCOMP = 10-INDEX INPUT | 
; DO 200 ISUB = 1, NCOMP INPUT | 
| IF (ARRAY (ISUB) - ARRAY (ISUB + 1)) 200, 200, 150 INPUT | 
| 150 TEMP= ARRAY (ISUB + 1) INPUT | 
i ARRAY (ISUB + 1) = ARRAY (ISUB) INPUT | 
| ARRAY (ISUB) = TEMP INPUT | 
{| 200 CONTINUE INPUT | 
i PI = 3.1415927E INPUT | 
| DO 300 INDEX = 1,.10 INPUT | 
| ARRAY (INDEX) = SORTF (ARRAY (INDEX)) * PI INPUT | 
| IF ACCUMULATOR OVERFLOW 400, 300 INPUT | 
{| 300 IFIX (INDEX) = XINTF (ARRAY (INDEX)) INPUT | 
| GO TO 900 INPUT | 
{| 400 PRINT 500, ARRAY (INDEX) INPUT | 
| 500 FORMAT (1HO, F12.4, 20HACCUMULATOR OVERFLOW) INPUT | 
| STOP INPUT | 
| 900 WRITE OUTPUT TAPE 6, 1000, (IFIX (INDEX), INDEX = 1, 10) INPUT | 
| 1000 FORMAT (1016) INPUT | 
| END INPUT | 
Ce DERN enn en seen ta re aE AE el Oe ee a aoe CO ee Oe eye SRO Ee ERS NCE ee RT ee ee OR ey a j 
Figure 8. FORTRAN II Source Program 


Action Lists" in the body of this 


APPENDIX A. SAMPLE CONVERSION 


manual. 
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100 


150 


200 


300 


400 
500 


900 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
{| 1000 
| 

L 


DIMENSION ARRAY (10) , LCP001 (10) 

COMMON ARRAY,LCP001 

READ (2,100) (ARRAY (I) , I=1,10) 

FORMAT (10F12.4) 

DO 200 INDEX=1, 10 

NCOMP=10-INDEX 

DO 200 ISUB=1, NCOMP 

IF (ARRAY (ISUB) -ARRAY (ISUB+1) ) 200,200, 150 
TEMP=ARRAY (ISUB+1) 

ARRAY (ISUB+ 1) =ARRAY (ISUB) 

ARRAY (ISUB) =TEMP 

CONTINUE 

PI=3.1415927E0 

DO 300 INDEX=1, 10 

ARRAY (INDEX) =SORT (ARRAY (INDEX) ) *PI 

CALL OVERFL (LCP002) 

GO TO (400,300,300) , LCP002 

LCP001 (INDEX) =INT (ARRAY (INDEX) ) 

GO TO 900 

PRINT 500, ARRAY (INDEX) 

FORMAT (1H0,F12.4, 20HACCUMULATOR OVERFLOW) 
STOP 

WRITE (6,1000) (LCP001 (INDEX) , INDEX=1, 10) 
FORMAT (1016) 

END 


Figure 9. Converted Source Program 
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OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
OUTPUT | 
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When the FORTRAN LCP encounters the name 
of an IBM-provided built-in or library 
function, it converts the FORTRAN II name 
to the appropriate System/360 FORTRAN name. 


Table 3 shows the function names used in 
the various FORTRAN II compilers and the 
equivalent function names in System/360 
FORTRAN. 


To uSe the table, the reader should scan 
down a column until he finds the name of 
the FORTRAN II function in which he is 
interested. The reader then scanS across 
to find the equivalent System/360 name. 
Except for certain 705 and 7080 FORTRAN 
function names, the FORTRAN II names are in 
alphabetical order. 


A blank box on the FORTRAN II Side of 
the table indicates that the function was 
not provided in that FORTRAN II compiler. 


A blank box on the System/360 side of 
the table indicates that no equivalent 
function is provided in System/360 FORTRAN. 
If there is no System/360 equivalent for a 
FORTRAN II function, the FORTRAN LCP issues 
a warning message in the output listing. 


APPENDIX B. FUNCTION-NAME CONVERSION 


Certain functions provided in System/360 
Level H FORTRAN are not provided in Level E 
Or BaSic Support FORTRAN. Asterisk nota- 
tion is used in the table to indicate those 
function that are not available in either 
or beth of the lower level System/360 
FORTRAN compilers. 


Note 1: The 7080 FORTRAN compiler accepts 


either the FORTRAN II names listed in the 


table or FORTRAN IV equivalents. Except 
for two cases noted in the table, the 
FORTRAN IV function name is the same as the 
System/360 function name. The 7080 FORTRAN 
IV names are not included in the table. 
When the 7080 FORTRAN IV name is the same 


as a System/360 name, no name change is 
required. | 

Note 2: The name of each of the six 
functions provided in 1620 GOTRAN is 


included in the table in the same box as 
the equivalent 1620 FORTRAN function name. 
Each GOTRAN function name is converted to 
the equivalent System/360 single-precision 
function name. 
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Table 3. System/360 Names for FORTRAN II Functions 


FORTRAN II Name | System/360 Name 


| Single- Double- 
ABSF ABSF ABSF ABSE ABSF ABSF ABSF J as | DABS* ‘CABS** 
ee ae ne ee ee ee ee ee 
ATN tt 
ATANF aE ATANF ATANE ATANF ATANF ATANF ATAN DATAN* 
COSF cos" COSE COSF COSF COSF COSF COS DCOS* a 
COSF CCOs 
DIME DIMF DIME DIME DIME Jom 
EXP tt 
EXPF Se EXPF EXPF EXPF EXPF EXPE EXP DEXP* 
EXPBF 
FLOATE FLOATE FLOATF FLOATF FLOATF | FLOAT DFLOAT* 
INTF INTF INTF INTE INTF | AINT 
LOGF LOGF LOGF LOGF LOGF | ALOG DLOG* 
LOGBF ; 
LOGXE LOGBF iscat bo. ALOGIO | DLOGIO 
MAXOE MAXOF MAXOF MAXOF MAXOF | AMAXO 
MAXIE MAXIE MAXIE MAXI F MAXI1F | AMAX1 
MINOF MINOF MINOF MINOF MINOF | AMINO 
MIN1F MIN1F MINIE MINIF MINIE | AMIN] 
MODF MODE MODF MODF MO DF | AMOD DMOD* 
SIGNF SIGNF SIGNE SIGNF SIGNE | SIGN DSIGN* 
SIN ft | : 
SINE ae SINF SINF SINF SINF SINF SIN DSIN 
tt 
SQRTE aa SQRTF SQRTF SQRTF SQRTF SQRTF | SQRT DSQRT* 


CEXP** 


FLOATF 


INTF 


LOG tt 


LOGF CLOG** 


LOGF 


CLOG10** 


CSIN** 


CSQRT** 


a 


XABSF 


XFIXF 


Notes: 


* Function not available in System/360 Basic Support FORTRAN. 


** Function not available in System/360 Basic Support or Level E FORTRAN. 
t This is the 7080 FORTRAN IV name for the function. ALOGB is converted to ALOGI0. 


tt This is a 1620 GOTRAN function name. |t is converted to the equivalent System/360 single-precision function name. 
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Where more than one page reference is 
provided, the first page number indicates 
the major reference. 

To differentiate between entries for 
some input/output statements, a number in 
parentheses is provided to indicate the 


compiler(s) to which the entry applies. 
For example, (1620) indicates that the 
statement is related to one or more 1620 


compilers. 


ACCEPT ‘statement: (1620) wscriccesee esas ee: 33 
ACCEPT TAPE statement (1620) ........... 34 
Acceptable LangquageS .cccescvvesscvvevees J 
Accessing parts of complex variables. 16,47 
AccesSing parts of double-precision 
Variables: .s4..st8eesseseecstews LE=15,40=45 
Accumulator overflow test ........... 24,37 
R=CONVELSVON: 6 56.6 sais es SS OME Meee See LOPS 


AIMAG (function) .....ceeee eos aoe eee 47,16 
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